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REVISION HISTORY 


REM & 
HISTORY 
JUNE 18,1979 INITIAL RELEASE CZTUUAO 
JULY 1,1979 SECOND RELEASE CZ7TUUBO 
JUNE THIRD RELEASE ¢ZTUUB1 
Pali 1,1981 FOURTH RELEASE CZTUUCO 
MARCH 1,1982 FIFTH RELEASE CZTUUDO 
CZTUUAO 


—s 
o 


INITIAL REALEASE=-PERF. EXER. FOR UP TO 8 TU58 CONTROLLERS 
WITH ONE OR TWO DRIVES EACH. 


CHANGES TO CZTUUAO 
1. THE PROGRAM WAS rage TO RUN UNDER THE NEW DIAGNOSTIC 
SUPERVISOR CHSAAO. as RESULT OF THIS CONVERSION, THIS 
PROGRAM NOW OPERATES IN 8K_AND — DISTRIBUTION 
REQUIRES ONLY ONE PART "AK=E6508-" 


CHANGES TO CZTUUBO 


1. "CLR @ XMSR(R5)"" HAS BEEN CHANGED TO ‘DEC @ XMSR(R5)"* TO 
ALLEVIATE THE ooee in DES TART ING ANY PREVIOUSLY SET 
PROGRAMMABLE SPEED IN THE DLV11-E.F, OR DC319 DLART WHEN 

THE TUS8 INIT SEQUENCE WAS TERMINATED. 


CHANGES TO CZTUUB1 


TEST 9 WAS ADDED TO THE DIAGNOSTICS BECAUSE THE TUS8 HAS 
BEEN UPDATED TO USE MODIFIED RADIAL SERIAL PROTOCOL. 


CHANGES TO CZTUUCO 


1. A_TEST WAS ADDED TO veRivy 128 BYTE/BLOCK MODE. THE TEST 
IS _SIMULAR TO i - IT WRITES, READS, AND VER figs SEQU- 
ENTIAL wi® KS OF TAPE FROM BLOCK 0 THOUGH BLOCK 204 THIS 
IS DONE FOR EACH SeLECTED DRIVE IN EACH SELECTED UNIT. THIS 
WILL BE TEST 4. TEST NUMBERED 4-8 WILL BECOME TEST 5-9. 


IN TEST 9, *MRSP* WILL BE TESTED DIFFERENTLY. IN THIS VERSION 

TO TEST THE NEED FOR HANDSHAKING. THE WAIT LOOP 1S BEFORE SENDING 
INSTEAD OF AFTER. THIS WILL VERIFY THAT THE TUS 

CANNOT SEND DATA WITHOUT A HANDSHAKE. 


hb 
o 


2 


SEQ 0002 
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TABLE OF CONTENTS 
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SYSTEM REQUIREMENTS 
RELATED DOCUMENTS AN 


AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
ASSUMPTIONS 


OPERATING INSTRUCTIONS 
HOW TO RUN THIS DIAGNOSTIC 


o 90 UFEWNo 


ERROR INFORMATION 
0 PERFORMANCE AND PROGRESS REPORTS 
0 DEVICE INFORMATION TABLES 


0 TEST SUMMARIES 
1.0 GENERAL INFORMATION 


THIS DIAGNOSTIC EXERCISES FROM 1 TO 8 russ CONTROLLER BOARDS, EACH 
OF WHICH MAY SUPPORT 1 OR 2 DRIVES. THE PROGRAM IMPLEME 


N HE 
PMAINTENANCE MODE** SulTCH WITHIN ALL PACKET COMMANDS, THUS RETRIEVING 
at INFORMATION FROM THE DEVICE UPON CERTAIN DEVICE RECOGNIZED 


STATISTICAL SUMMARIES ARE PROVIDED FOR ALL UNITS TESTED. RETRIES 
ARE PERFORMED ON DATA-RELATED ERROR CONDITIONS. 


USE OF LOOP ON ERROR FLAG (:LOE) IS IMPLEMENTED BUT NOT 
RECOMMENDED FOR USE, SINCE THE LOOPS ARE QUITE LENGTHLY DUE 
TO COMMUNI CATIONS BROTOCOL OVERHEAD: 


1.1 PROGRAM ABSTRACT 





SENDS THE TAMUNIEATION 
PACKET (COMMAND OR MOATAD FORMULATED BY EXECUTING MACRO CODE WITHIN 
THE TEST ALGORITHMS. THE USE OF MACROS ane IMPLENE NT THE COMMUN ICATIONS 


PROT: UN 

REQUIRING 8 SEPARATE DEVICE STACKS IN re es: sree 

STACK. THE TEST CODE AS A CO-ROUTINE WITH SCHEDUL $04. 

TEST CODE PROGRAM COUNTER IS MAINTAINED FOR EACH MONIT TStPCtR )’ 
I 


THE TESTS ARE PERFORMED USING THE SPECIFIED ALGORITHM ON ALL oR DRI 
THEN REPEAT THE TEST AFTER SWITCHING DRIVES, IF ANY DRIVE WERE "Séecteo. 


FOLLOWING THE TRANSMISSION OF 1 ss TO EACH DEVICE (WITH XOFF 
PRECEEDING) THE UNITS ARE POLLED THEIR ENTIRE RESPONSES 
EVALUATED ROUND ROBIN. IF ANY ERROR INITIA‘cS A RETRY, THE SCHED- 





Ono 
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ULING PROCESS IS MODIFIED TO COMMUNICATE WITH ONLY 7 UNIT UNTIL 
COMPLETION OF THE RETRY PROCEDURE. THEN, A RETRY BY ANOTHER UNIT 
MAY PROCEED, OR THE SYSTEM CONTINUES NORMALLY. 


THROUGHOUT THE PROGRAM, RS POINTS TO ONE OF 8 POSSIBLE DATA 

STRUCTURES, CONTAINING STATUS, TEST PARAMETERS, ,AND STATISTICAL 
INFORMATION FOR THE CURRENT UNIT, CALLED, “UNIT'S DATA BLOCK”. 
“START CLEARS STATISTICS. | “RESTART' AND “CONTINUE” 


UPON OCCURANCE OF A_ FATAL ERROR, THAT UNIT IS DESCHEDULED 
gg ALLOWING THE REMAINING (IF ANY) TO PROCEED WITH 


ERROR DESCRIPTIONS: 


AN EXPLANATION OF THE EXTENDED ERROR INFORMATION FOLLOWS. SEE 
ats eo he IN THIS LISTING SUBTITLED "ERROR MESSAGE 


BLOCK #: THE RECORD NUMBER 7 Ret cce 512. BYTES) 

IN LAST COMMAND PACK 
COMMAND : THE MOST RECENT COMMAND PACKET OP CODE. 
EXPCTD: . THE DATA PATTERN USED ON WRITE COMMAND 

AND FOR DATA COMPARE AFTER READ OP. 

SUCCESS: THE SUCCESS CODE RECEIVED IN END PACKET. 
PAK SENT: TYPE OF PACKET JUST SENT (0 FOR DATA; 

1 FOR COMMAND) 
FLAG RCVD: FLAG BYTE OF PACKET CURRENTLY BEING 


CHECKED, OR 1ST BYTE OF RESPONSE. 

SINCE IN MAINTENANCE MODE TUS8 WILL SEND A BAD DATA PACK WITH A 

"DATA CHECK’ SUCCESS STATUS IN THE FOLLOWING END PACK, THE HOST 
UPON CHECKING THOSE DATA PACKS), DETERMINE ‘BAD DATA’ IN 

A COMMUNICATIONS GLITCH (GOOD SUCCESS) VS. TU “DATA~CHECK’ ERROR CO 

a 10 RESULT IN OR" MESSAGES FOR ONE ERR 
CONDITION, BUT ONLY THE SECOND ERROR MESSAGE WILL CONTAIN PERTINENT 
(NOT FEROS ERROR NUMBER. 


SYSTEM REQUIREMENTS 


HARDWARE ' 


4209 antl CPU WITH AT LEAST 24K WORDS OF MEMORY AND CONSOLE 


TUS8 CONTROLLER AND DRIVE(S). DL, DLV, OR PDT COMPATABLE INTER~ 
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FACE; AND REVISION ‘‘I'' TUS8 MICROCODE (OR LATER) ASSUMED. 


1.2.2 SOFTWARE 


THE PROGRAM IS REVISION D DIAGNOSTIC SUPERVISOR COMPATIBLE. 
CONSULT XXDP+ USERS MANUAL FOR OPERATING INSTRUCTIONS. 


1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL CHQUS 


1.4 DIAGNOSTIC HIERARCY | PREREQUISITES 


— INTERFACE DIAGNOSTICS MAY BE RUN TO ISOLATE INTERFACE 


1.5 ASSUMPTIONS 


SYSTEM HARDWARE OTHER THAN TU58(S) IS OPERATIONAL. 


2.0 OPERATING INSTRUCTIONS 


2.1 HOW TO RUN THIS DIAGNOSTIC 


THE DIAGNOSTIC MAY BE POLED gt B A — RESPONSE TO THE 
SUPERVISOR PROMPT. 'STA'(CR) IS SUFFICIENT 

F THE DEVICE IS NOT AT THE STANDARD ADDRESS AND VECTOR (176500, 
00), THEN ANSWER "‘CHANGE HW?"’ WITH ‘YES’ INITIALLY TO SET _UP 
HARDWARE CONFIGURATION TABLES FOR EACH UNIT. THAT INFORMATION 


TUS8 CSR - =o OF RCSR OF DLV-11 OR OTHER INTERFACE 


VECTOR ADDR. = ADDRESS OF INTERRUPT VECTOR LOCATION. 


PDT INTERFACE == IS THE TUS8 IN A PDT 11/130 
OR SYSTEM WHOSE BUFFERS ARE: 


RCDB (AND XMDB) 
XMSR 


TEST DRO - YES OR NO 
TEST DR1 - YES OR NO 
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SUBSEQUENT RESPONSES TO ‘CHANGE HW?*' MAY THEN BE ‘'NO"’. 

THE STANDARD ADDRESS AND VECTOR LOCATIONS FOR THE PDT 11/130 
ARE 177170 AND 260 RESPECTIVELY. 

THE SOFTWARE QUESTIONS ARE AS FOLLOWS: 


NUMBER OF BLOCKS: TEST 5-8 <= ONE MAY SELECT A MINIMUM OF 8 
A MAXIMUM OF 512 BLOCKS T 0 wRiTE 
READ; WRIT er VERIFY; AND READ REDUCED, 
AS PKPLAINED IN SECTION 6.0. 


ADD DR # TO DATA PATTERN <== FOR en SAME READ AND WRITE TESTS 
5-8,° DRIVE Ret yy (0 OR 1) MAY 
BE ADDED TO DATA WRITTEN ON TAPE TO 

INSURE DRIVE SELECT BIT OPERATION. 


STATISTICS PRINTED AT EOP =~ SELECTS WHETHER OR NOT TO PRINT 
INFORMATION AT END OF PA “C. 
THESE STATISTICS MAY ALSO BE RE~ 
TRIEVED WITH THE ‘PRI'’ COMMAND. 


COMPARE DATA ON READ =~ SELECTS WHETHER OR NOT TO DO A 
oere COMPARE ON DATA PACKETS RE- 


PRINT PACKET ON ERROR -- PRINTS 132. BYTE DATA PACKET ON A COMPARE 
ERROR, IF SELECTED. 


PRINT UNIT PROTOCOL SUMMARY (TEST 9) == PRINTS A TABLE INDICATING 
THE PROTOCOL OF EACH UNIT. 


ERROR INFORMATION 


er ae IS PROVIDED ON- OCCURRANCE OF ERRORS AS OUTLINED IN 


PERFORMANCE AND PROGRESS REPORTS 


STATISTICS ARE AVAILABLE PER SECTION 1.1 AT END OF PASS, CONTROL-C, OR 
UPON ENTERING A 


A PRI" COMMAND. THEY CONSIST OF # BLOCKS WRITTEN AND READ, # OF 


DATA ERRORS, HARD OR SOFT. 


DEVICE INFORMATION TABLES 


SEQ 0006 
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CONSULT SECTION SUBTITLED ‘DATA BLOCK FORMAT'’ FURTHER ON IN THIS LISTING. 


6.0 TEST SUMMARIES 


INIT: INIT IS SENT TO DEVICE IF: 
on 1. INIT CODE IN SUPERVISOR IS EXECUTED 
2. INIT IS REQUESTED BY DEVICE AS A RESULT OF 
ERROR. 
TEST 1: INITIATES FIRMWARE DIAGNOSTICS AT DEVICE LEVEL (SELF TEST) 
TEST 2: SEEK TEST. SEEKS BOT ON BOTH TRACKS, THEN 
VERIFIES 60 IPS OPERATION TO SEEK EOT ON 


ON BOTH TRACKS,ENDING THEN AT BOT. 


TEST 3: PERFORMS WRITE, ag: READ OF ae Ay AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT. THIS TEST IS IN 
512 BYTE/BLOCK MODE. 


TEST 4: PERFORMS WRITE, THEN READ OF ADJACENT BLOCKS AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT. THIS TEST IS IN 
128 BYTE/BLOCK MODE. 


TESTS 5-8: READS OR WRITES BLOCK # AS DATA INTO syccesaive opieine 
ON TAPE, THE LENGTH OF WHICH iS DETERMINED BY SOFTWARE 
UEST 3 FAULT IS SHOR MIN NIM 
(8.) RESULTS IN TRANSFER OF 8. (OR 4 PER — Mesa, BYTE 
ER RE ) OPERAT THE 


DRIVE 
AS DEFA SO FOR TAPE INTER 
TESTING. t MISWER (N) TO SOFTWARE (SW) QUESTION #2. 


NOTE: THE AMOUNT OF TIME SPENT IN yes te 5-8 IS QUITE 
LONG IF THE FULL TAPE (512.) IS SELEC TED. 


TEST 5: WRITE TAPE 

TEST 6: READ TAPE 

TEST 7: "WRITE VERIFY’ TAPE 

TEST 8: READ MODIFIED THRESHOLD TAPE 

TEST 9: Hy 3 FIRST PART OF TEST 9 DETERMINES IF A UNIT IS 


APABLE OF MODIFIED RADIAL SERIAL PROTOCOL. THIS 
PART OF ay TEST IS WRITTEN USING RADIAL SER 
PROTOCOL, AND DETERMINES THE “PROTOCOL OF A UNIT BY 
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SENDING THE nis A GET eS tus S_COMMAND AND 
MONITORING THE RESPONSE. IF T A RETURNS AN END 
vg IT 1S, 4 MODIFIED UNIT. We E TU58 RETURNS A 
DATA PACKET IT IS A NON-MODIFIED UNIT. NOTE, THE DATA 


PACKET RE TURNED ON A GET CHARACTERISTICS C DI 
T NORMAL HER IT CONSISTS OF A DATA PACKET THAT 
1826, BYTES. PLUS AN END PACKET WHICH IS 14. BYTES. 
THE SECOND PART OF TEST 9 TESTS ONLY HS UNITS 
THAT ARE MODIFIED. THIS IS ACHIEVED BY LETTING NON- 
MODIFIED UNITS JUMP OVER CODE. IT WAS ASSUMED THAT IF 
IT CAN READ,WRITE,ETC... WHEN OPERATING IN RS 
HEN IT CAN READ, WRITE,ETC... OPERATING IN MRSP. 
THEREFORE ALL THA TO BE TESTED WAS THE ABILITY OF 
MODIFIED UNIT TO BE ABLE TO SEND ONE BYTE F 


WA 
A CONTINUE FROM THE HOST itt SENDING THE NEXT — 
A PROTOCOL SUMMARY OF THE UNITS IS ADVAILABLE BY AN- 
SWERING YES (Y) TO SOFTWARE (SW) QUESTION # 5. 
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td 
MMRNWO 
VMN Srw 


s 


000 


1 
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-TITLE PROGRAM HEADER AND TABLES 
SBTTL PROGRAM HEADER 


-ENABL ABS, AMA 


. = 2000 
eNLIST BEX 
BGNMOD 


THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
POINTER BGNRPT ,BGNSW,BGNSF T ,BGNAU,BGNDU,BGNSETUP 


HEADER CZTUU,D,0,3600.,1,PRI07 


LSNAME : : 

ASCII /C/ 

ASCII /Z/ 

ASCII /T/ 

ASCII /U/ 

ASCII /U/ 

-BYTE O 

-BYTE 0 

-BYTE O 
LSREV:: 

ASCII /D/ 
LSDEPO:: 

ASCII /0/ 
LSUNIT:: 

eWORD TSPTHV 
LSTIML:: 

eWORD 3600. 
LSHPCP:: 

eWORD LSHARD 
LSSPCP:: 

eWORD LSSOFT 
LSHPTP:: 

eWORD LSHW 
LSSPTP:: 

-WORD LS$SW 
LSLADP:: 

-WORD LSLAST 
LSSTA:: 

-worr 0 
L$CO:: 

-WORD 0 
LSDTYP:: 

-WORD 1 
LSAPT:: 

eWORD 0 
LSDTP:: 

eWORD LSDISPATCH 
LSPRIO:: 

PRIO7 


«WORD 
LSENVI:: 


kK 1 
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PROGRAM HEADE SEQ 0010 
002044 000000 «WORD 0 
002046 LSEXP1:: 

002046 000000 -WORD 0 
002050 LSMREV:: 
002050 003 -BYTE C$REVISION 
002051 003 -BYTE CSEDIT 
002052 ; LSEF:: 
002052 000000 «WORD 0 
002054 000000 -WORD 0 
002056 LSSPC:: 
002056 000000 -WORD 0 
002060 LSDEVP:: 
002060 005510 «WORD LSDVTYP 
002062 LSREPP: : 
002062 015150 -WORD LSRPT 
002064 LSEXP4:: 
002064 000000 -WORD 0 
002066 LSEXPS:: 
002066 000000 -WORD O 
002070 LSAUT:: 
002070 017302 «WORD LS$AU 
002072 LSDUT:: 
002072 017156 «WORD LS$DU 
002074 LSLUN:: 
002074 000000 -WORD 0 
002076 LSDESP:: 
002076 002122 -WORD LSDESC 
002100 LSLOAD: : 
002100 104035 EMT ESLOAD 
002102 LSETP:: 
002102 000000 -WORD 0 
002104 LSICP:: 
002104 016164 eWORD LSINIT 
002106 LSCCP:: 
002106 017136 .WORP LSCLEAN 
002110 LSACP:: 
002110 016754 «WORD LSAUTO 
002112 LSPRT:: 
002112 002142 -WORD LSPROT 
002114 LSTEST:: 
002114 000000 eWORD 0 
002116 LSDLY:: 
002116 000000 - WORD 
00. 136 LSHIME:: 

508 002120 000000 -WORD O 

509 00212 DESCRIP <TUS8 PERF EXER> 
003155 LSDESC:: 
002122 


124 125 065 ly /TUS8 PERF EXER/ 


PROGRAM + ee AND TABLES 


wi 
po Sa tt 
QOUSWwN— 


00000 
17777 
177777 


OO &rorr 


5 
5 
5 
5 


wo 
owoon 


L 
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THE PROTECT TABLE 
THE 


T USED BY THE MONITOR TO WARN THE OPERATOR WHEN HE 
; TRIES TO TEST E 


IS 
LOAD DEVICE. 


BGNPROT 
LSPROT:: 
sDEVICE CSR 
- WORD :NO MASS BUS 


NO DRIVE 
ENDPROT © 


SEQ 0011 








M 
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PROGRAM HEADER _ SEQ 0012 

527 

528 -SBTTL DISPATCH TABLE 

580 

531 i THe DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF ine TEST. 

236 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST 

534 

535 902150 DISPATCH 9 
002150 000011 «WORD 9 
006135 LSDISPATCH: : 
002152 017304 WORD 11 
002154 017506 «WORD T2 
002156 017760 -WORD 13 
002160 021352 - WOR 14 
002162 022756 -WORD 15 
002164 023746 «WORD 16 
0021 024532 WORD 17 
0021 025522 -WORD 18 
002172 026306 WORD 19 


536 


PROGRAM HEADER AND TABLES 
DEFAULT HARDWARE P-TABLE 


RFI 


3 3 


N 1 
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-SBTTL DEFAULT HARDWARE P-TABLE 


THE DEFAULT HARDWARE P=-TABLE es ny DEFAULT VALUES OF 
: THE TEST=DE\'ICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTILA. TO THE STRUCTURE OF THE UHARDUARE P-TABLES. 


BGNHW DFPTBL ra 
, L10001-L$Hw/2 
L$HW:: 
DFPTBL:: 
176500 CSR ADDRESS 


300 OR ADDR. 
3 TEST DRIVE ZERO AND ONE 
0 SNOT PDT TYPE INTERFACE 








g 
Se 


SS Sees 
CNT ee er et 
OALwuMO CO 


#7 


591 002226 
002226 


592 
593 002226 
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SEQ 0014 $s! 
-SBTTL SOFTWARE P-TABLE 


3++ 
3 THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTBL 
«WORD L10002-L$SwW/2 


L$SW:: 
SFPTBL:: 
LENGTH: .WORD 8. 3; TAPE LENGTH 
STAEOP: .WORD 1 sPRINT STATISTICS AT EOP 
PRBUF: .WORD 1 PRINT DATA BUF ON COMP. ERROR 
CMPDAT: .WORD 1 : COMPARE 
DRVCHK: .WORD 1 zADD OR # TO DATA 
EVLTHR: .WOR 1 s THRESHOLD FOR EVL TEST 
PPSOT9: .WORD 0 PRINT UNIT PROTOCOL SUMMARY (TST9) 
ENDSW , 
110002: 
ENDMOD 


AREAS 


GLOBAL 
SOFTWARE P-TABLE 


607 
635 


646 002226 


6 
653 002226 
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-TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


p++ 
3 THE “LOBAL EQUATES SECTION CONTAINS PROw wi EQUATES THAT 
3 ARE USED IN MORE THAN ONE TEST. 


EQUALS 
: BIT DIFINITIONS 
B1T15== 100000 
BIT14== 40000 
BIT13== 20000 
BIT12== 10000 
BIT11== 4000 
BITi0== 2000 
BIT09== 1000 
BITO8== 400 
B1T07== 200 
B1T06== 100 
BIT0S== 40 
BIT04== 20 
BIT03== 10 
BITO2== 4 
BITO1== 2 
B1T00== 1 
BIT9== BITO9 
BIT8== BI1T08 
BIT7== BI1T07 
BIT6== B1T06 
BIT5== BI1TO 
BIT4== BITOS 
BIT3== BITO3 
BlT2== BITO2 
BITi== BITO1 
BITO== BITOO 


: EVENT FLAG_DEFINITIONS 


; Er s2e EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 

EF .START== 2, ¢ START COMMAND WAS ISSUED 

EF .RESTART== . ; RESTART COMMAND ISSUE 

EF. CONT INUC== 0. 3 CONTINUE C 

EF .NEW== : ; ANEW PASS HAS BEEN STARTED 

EF .PWR== 8. + A POWER=FAIL/POWER-UP OCCURRED 


3 PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
PRI06== 300 


G 
SEQ 0015 Ss 
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900240 PRIOS== 240 
909200 PR104== 200 
00014 PRIO3== 140 
000790 PRIO2== 100 
000640 PRI01== 40 
000000 PRI00== 0 
OPERATOR FLAG BITS 

0 - éviss 4 
000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 


: 
= 
o 
m 
“ 
iT] 
= 
So 
[=] 
S 
oS 
So 


GLOBAL AREAS 
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ERROR CODE EQUATES 


667 


-SBTTL ERROR CODE EQUATES 
;THE ERROR CODE OFFSET VALUES : 


TINE ‘LOG’ TO INDEX (BY R5) INTO DEVICE’S DATA BLOCK AND 


USED BY ROU 
INCREMENT STATISTICS. 


SFTRD 


100. 
101. 
102. 


FAWWIWIWIWINININININ 2 2 FM MOA HN 
SOA LSMOWOALSMUOAOA SMO 


IN ADDITION, SYSTEM SETUP OR RUNTIME ERRORS ARE: 

- ALL UNITS ABORTED 

° MORE THAN 8. UNITS (16 DRIVES) REQUESTED 
NEITHER DRIVE SELECTED FOR THIS CONTROLLER 
ALL THE ABOVE ARE CLASSIFIED AS SYSTEM FATAL 


SEQ 0017 


"oO 


AREAS 


GLOBAL 
GENERAL EQUATES 


707 
708 
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-SBTTL GENERAL EQUATES 


sRADIAL SERIAL CODES: 





[THE FLAG BYTE CODES ARE: 
RSCMND == 





2 PACKET 
000020 RSCONT == 20 CONT TINUE** SINGLE BYTE 
000020 RSXON == 20 i, eed E BYTE 
000023__—i«w. RSXOFF == 23 ia *, SINGLE BYTE 
000004 RSINIT == 4 INET" SINGLE BYTE 
000001 RSDATA == DATA" PACK 
000002 _RSEND = RSCMND SEND PACKET FLAG IS ‘‘COMMAND*’ 
SEND PACK SIZE: 
000016 RSNDSZ == 14. :TOTAL BYTES IN COMMAND PACKET 
sMESSAGE PACK SIZE: 
000012 RSMSIZ == 12 310. BYTES FOR BYTE COUNT INSIDE CMND PACK 
DATA PACK th 
000204 sz 132. sTOTAL BYTES IN DATA PACKET 
DATA + ERD PACK SIZE: 
000222 = RSDASZ+RSNDSZ 
3GET CHARACTERISTICS DATA PACKET SIZE 
000034 RSGCDP == 28. TOTAL BYTES FOR ele CHAR DATA PACKET 
tMINU NUS THE END PACK 
000016 RSSNSZ == RSMSIZ + 4 sSIZE FOR SENDING cows PACK 
001036 RCBFS2== ~ GaRSDASZ#RSNDSZ 34 DATA PAKS AND END PACK 
21S SIZE OF RCV BUFFERS 
: THE OP CODES ARE: 
000100 RSSEND == 100 zsEND PACK DESCRIPTOR 
000003 SSWR == sWRITE 
000002 RSSRD == 2 3 
000005 RSSSEK == 5 3 SEEK 
000012 RSSGET == 12 :GET CHARACTERISTICS 
000000 SSNOP == 0 *NO-OPERAT I ON 
000001 RSSNIT == 1 s INITIALIZE 
000007 RSSSLF == 7 sSELF TEST 
sTHE SUCCESS CODES ARE: 
177720 ESABO ==-48. :BAD COMMAND FROM HOST 
177767 ESNCRT ==-9. NO CARTRIDGE 
177770 E ==-8, 3NO DRIV 
ESOK ==0 :0P Se SUCCESS 
7776 ESPART —s PARTIAL OP 
177740 ESSK ==-32, SEEK ERROR 
1 ESTRY == SRETRYS oOk CURRED ‘ 
177765 ESWLOC ==-11. 3WRI TE PR erecTee 
177737 E ==-33, : TOR STOPPE 
177720 ESCMD ==-48, : oR 
77711 ESREC ==-55. 7B NUMBER. 
177757 ESCKS ==-17. i! U CHKSUM ERROR 
177777 ESSLF ==-1. ‘SELF test ERROR 
177757 ESCKSM=ESCKS 
177757 ESWR=ESCK 
177757 ESRD=ESCKS 





EAS 


765 


787 002270 
788 002272 
789 002274 
790 002276 
791 002300 
792 002302 
793 002304 
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GLOBAL_AR 
ERROR MESSAGC DESCRIPTIONS 





~SBTTL ERROR MESSAGE DESCRIPTIONS 


;THE TABLE OF ERROR MESSAGES (ADDRES 


30F THE REASON. 
RSNTAB: MSNLOG 
aed 


IT'S ABSOLUTE ADDRE 


SES 
Ss 


). 
IS R 


SNTAB 


X(R5) CONTAINS THE OFFSET 
+ ABNDX(R5). 


SEQ 0019 


nn 


EAS 


795 
796 
797 002306 
798 
799 002322 
800 
it 002340 
803 002364 


837 003114 
838 
oH 003154 
841 003216 
ie 
843 003260 
844 
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123 
123 
102 
123 
102 
115 
103 
127 
122 
110 
103 
120 
042 
102 
102 
127 
116 
111 
124 
122 
122 
125 
125 
104 


105 
131 
101 
105 
101 
117 
101 
122 
105 
117 
101 
101 
116 
101 
101 
122 
117 
116 
111 
105 
105 
116 
116 
114 


105 
1¢3 
104 
114 
104 
124 
122 
111 
103 
123 
116 
122 
117 
104 
104 
117 
040 
104 
115 
103 
103 
122 
122 
126 


SEQ 0020 


sHERE ARE THE MESSAGES PROPER: 


MSSKER:: ASCIZ /SEEK ERROR/ ;DEVICE COULD NOT READ HEADER 
MSNLOG: +" ,ASCIZ /SYSTEM ERROR/ :DIAGNOSTIC HUNG. BETTER RE-BOOT 
MSBDA:: .ASCIZ /BAD DATA IN PACKET/ sHOST DATA CHECK FOUND ERROR, DEVICE MAY 
EVEN HAVE READ CORRECTLY. 
MSSELF :: ASCIZ /SELF TEST ERROR/ MICRO DIAGNOSTIC FAILED, BUT DEVICE COULD STILL 
MSCOM:: .ASCIZ /BAD DATA W-0 DATA CHECK” ERR AT wd zPREVIOUS DATA CHECK 
EVEN sERROR NOT DUE TO DEVICE READ OPERATION 
MSNOMO: : ASCIZ /MOTOR STOPPED/ :DEVICE nga Noy CET ANY MEANINGFUL SIGNAL 
MSNOTP::  2ASCIZ /CARTRIDGE NOT IN PLACE/’:NO MEDIA OR BAD SWITCH 
MSWPRO:: -ASCIZ /WRITE PROTECTION/ CARTRIDGE | WRITE PROTECT TAB MISSING OR 
MSRNIT::  2ASCIZ /RECIEVING INIT/ ‘DEVICE SENT INIT REQUEST 
MSHCHK: +", ASCIZ /HOST FOUND PACKET CHECKSUM ERROR/ :DEVICE SENT PACK WITH 
MSNIT:: -ASCIZ /CAN'T INIT/ :DEVICE SENT BYTE OTHER THAN ‘CONTINUE’ 
MSPART::  -ASCIZ /PARTIAL OPERATION/ SEND OF MEDIUM ENCOUNTERED 
MSUNIT::  2ASCIZ /"'NON-EXISTENT’’ DRIVE/ ;DEVICE RECV'D TOO LARGE DRIVE NUMBER 
MSCMD: : “ASCIZ /BAD COMMAND/ ;DEVICE COULD NOT UNDERSTAND HOST 
MSREC:: ASCIZ /BAD RECORD NO./ sDEVICE RECV'D TOO LARGE A RECORD NUMBER 
MSURSP::  -ASCIZ /WRONG SUCCESS CODE/ = ;HOST COULD NOT DECIPHER CODE IN END PACK 
MSNRSP: : r ZASCIZ /NO RESPONSE/ ;TIME OUT WAITING FOR BYTE IN RCV BUF ON INTERFACE. 
MSORSP: : “Asti \INDECIPHERABLE FLAG BYTE\ ;HOST COULD NOT UNDERSTAND | 1st BYTE OF 
EN SRESPONSE FROM TU AS PROPER PROTOCOL 
MSTOSN: : “gAsciz /TIME OUT ON SEND/ *DLV "READY® NEVER WENT wien 
MSSFRD:: OSCIZ /RECOV. DATA CHECK ERR ON RD OP/ *TUS8 RESPONDED WITH “DATA-CHECK’’ 
EVEN R ON READ OP. :HOST RETRY(S) SUCCESSFUL 
MSSFWR: : psciz /RECOV. DATA CHECK ERR ON WR OP/ :SAME BUT UR OR WR VERIFY OPERATION 
MSHDRD: : sASCIZ /UNRECOV. DATA CHECK ERR ON RD OP/  :TUS8 RESPONDED WITH “DATA~CHECK" 
EVEN READ OP. ;RETRIES UNSUCCESSFUL 
MSHDWR: : “Ase /UNRECOV. DATA CHECK ERR'ON WR OP/ ;SAME BUT WR OPERATION 
MSOVRN: : “ASCIZ /DLV ERROR IN RECEIVE/ ;DLV ERROR (THE CONTENTS PRINTED OUT) 





“Yano 





AREAS 


Bi 


a5 003306 
850 

851 

S26 

85 

854 

855 

856 

857 

858 003310 
859 003312 
860 003314 
861 003316 
a6 003320 
863 003322 
864 003324 
865 oes 6 
866 003 
867 003332 
868 Eth 
869 003336 
870 00334 
871 003342 
872 

873 

874 

875 

876 

877 003344 
878 003346 
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000000 


177777 
000226 


~SBTTL MISC STORAGE AND ECUATES 


SYSTAT:: .WORD sSYSTEM STATU 
:BIT7-BIT15 = sig BYTE OF PACK RCVD 
*BITOS = NOT USED 
'BIT04 = NOT USED 
B1T0S = NOT USE 
381 19 =RETRY ‘BaD FLAG BYTE 
:BITO1 = RETR URRI 
:BITOO = CHKSUM IS ODD (TEMP STORAGE) 
TAPLEN:: .WORD :# RECORDS 
DEVPTR:: .WORD [=>NEXT UNIT ADDR 
RCFLG:: .WORD STEMP STORE FOR GTBYTE 
RCBCNT: .WORD [TEMP STORAGE FOR GTBYTE 
FTLNM: WORD 4 [NUMBER OF TRIES BEFORE ABORT 
DONE::  .WORD 1 IF TEST AL GORI THA COMPLETE 
IDPTR:: .WORD [PTR IN TESTID MACRO 
TSTTOP: .WORD *POINTER TO CURRENT TEST 
MXRTRY:: .WORD 8. NUMBER OF RETRIES BEFORE *HARD'’ ERROR 
BLKER:: .WORD TRECORD # FOR ERROR RE 
SECREC:: .WORD RECORD - 10. START, AFTER SuITCHING TRACKS 
PRNSIZ:: .WORD SSIZE OF P “PRNPAK'' 
ALLGON:: .WORD SECONDARY AON’ T PRINT STATISTICS FLAG. 
TEST9:: .WORD tease FLAG THAT INDICATES IF IN TST 
; TIME OUT CONSTANTS: 
CSNRDY:: =1 sTIME OUT ON SEND DELAY (DLV NOT READY) 
CSRCVB:: 150. 745 SEC. MULTIPLIER REWIND TIME 
[CAN BE OPTIMISED PER CPU 


SEQ 0021 


AREAS 


881 


ek ed ad ad od ad ad ed 
WONOULSWN—O N 


00 
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“ote DATA BLOCK FORMAT 


==> TOP OF 1 OF THE 8 DATA BLOCKS (1 PER UNIT) DURING EXECUTION 
tars IS THE STATUS WORD CONTAININ 


SOALMOOO 
eeeeeeee 


WNNrnrnonn=-— 


SRNSES PVSEK NSP 





SEQ 0022 


6: 
;BIT15 = ABORTED 
‘BIT14 = SEND 
*BIT13 = RETRY FLAG BYTE ERROR (DATA PACKS) 
*BIT12 = TEMP WRITE MACRO 
:BIT11 = UNI BEING TESTED 
:BIT10 = RETRYING DATA ERROR 
:BIT9 = TUS8 ERR 
8118 = RD/ Tl 
‘BIT? = NORMAL /REDUCED THRESHOLD (MACROS) 
B16 = HOST DATA E ogre 
‘BITS = WR VERIFY OPERATI 
:BIT4 = TYPE OF PAK SENT oD DATA 1CMD 
*BIT3 = RETRY FLAG BYTE ERR.(SEND COMMAND PACK) 
:BIT0,1,2=UNIT NO. 
*DEVICE STATE 
a OF RETRIES 
RROR NUMBER FOR LOG 
SSTORAGE FOR REGISTERS USED IN TEST BODY 
[STORED W WAPOW 


WITH 
3RETRIEVED WITH SWAPIN 
;POINTER TO oy Ps 3 + TEST INST. 


ADDR Ss 
3DLV SND STATUS + 


ADDRESS 
— NUMBER OF PACKETS TO RECEIVE 
:THE EXPECTED FLAG OF 1ST P, ACK KET 

THE EXPECT ED COUNT OF 1ST PACKET 
TIPLE PACKET RECIEVES. (MAX. 4) 
FcOnsecUTIVE XSF GS AND XSCN 

R==0 OR 5.9 DRIVE SELECTED BY OPERATOR 
TER OF ok TRA K NUMBER 


RECORD (BLOCK Wh} 


TEST MACRO > ae by 

STHE # OF BYTES FOR SENDING PACKET 

on Ad em he BY y USED 

sCONTENTS OF RCDB ON DLV = 

SUCCESS. CODE OF LAST END PACKET 

TYPE OF COMMAND CURRENT IN EVEN BYTE; BITIS==VERIFY OP. 


POINTER TO $4 BYTE BUFFER (4 DATA PAKS + END PACK) 
3POINTER TO TOP OF PACKET 

2PO rOice TO CURRENTLY USED usrts OR XSCNT 

sTHE # OF BY MA BLOCKS WRITTEN DRO 
aL. OF 
sTHE # OF 
3THE # OF 5 


: BY WIE BLOCKS DRO 
> BYTE BLOCKS READ DR1 


1 
1 
1 
1 
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;AND THE ERROR LOG. 
3SPLIT INTO A BYTE PER DRIVE: 


SOFFSET IN DATA. BLOCK 


ae aS oes ene 


' DR1 ! DRO! 


pecennnen-ant 


pe ae 5+ ap 
;SOFT READ 


sSOFT WRITE 3SFTWR 
SRECIEVED INIT ;RCINIT 
3BAD FLAG BYTE ;OTL 


;THEN THOSE CODES WHICH HAVE N TRIES BEFORE ABORT 


sDLV ERROR 3OVRN 
BAD DATA 3BDCOM 
ZHARD READ ; HRD 
;HARD WRITE sHRDWR 
3 CHKSM AT HOST 


sBDCHK ; 
;SEEK ERROR TOTAL;SKERR ; 


3WRITE me ;WRLOCK 
SCANT INIT SCNINIT 


[NO RESPON 
+ ##RESERVED*® 
[NO CARTRIDGE ;NOCART 
*TIME OUT SEND; TOSNDB 


sMSSFRD ; 
SMSSFWR ; 
SMSRNIT ; 


MSQRSP ; 


sMSOVRN ; 


sMSNOTP ; 
MSTOSN ; 





_ZERROR TYPE ” SERRCODE:; MSG CODE: SUC. CODE 


sakakee 


seeteee 
fteneee 
sESCKSM 
ZESCKSM 


peeanee 
Seetene 

TESWLOC 
:ESNOMO 
seeeeee 
TESPART 
SESCMD 
TESREC 
perenne 


pxeeane 
peeakee 


SNC 
Staeeee 


s OFFSET Oakes OF STATISTICS (RESERVED) 


sVECTOR AD 


ZBYTE COUNT SAVED DURING RETRY ON WRITE OPERATION 


gxeeee FLAG INDICATING MRSP 


;** RESERVED ** 
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ge} ~SBTTL DEVICE DATA BLOCK ALLOCATION 

983 
oes ; TABLE OF DEVICE DATA BLOCK ADDRESSES 

986 
987 003350 003370 BLKTBL:: -WORD DEVO 

988 003352 003602 ~WORD DEVI 

989 OO 5822 004014 WORD DEV 

990 Oos 56 00422 WORD DEV 

991 003360 00444 eWORD DEV4 

o36 003362 00465 -WORD DEVS 

993 003364 005064 -WORD DEV6 

ope 003366 005276 LSTDEV:: -WORD DEV? 

996 

pad sAND STORAGE FOR EACH: 

999 003370 DEVO: -BLKB LKSIZ 
1000 003602 DEVI: -BL BLKSIZ 
1001 004014 DEV: -BLKB- = BLKSIZ 
1002 004226 DEV3: ~BLKB = BLKSIZ 
1003 004440 DEV4: BL BLKSIZ 
1004 004652 DEVS: BL BLKSIZ 
1005 005064 DEV6: BL BLKSIZ 
1006 005276 DEV?: BL BLKSIZ 
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02 -SBTTL GLOBAL TEXT SECTION 


+ NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <TUS8 CONTROLLER> 


124 125 065 


LSDVTYP:: 





SEQ 0025 


eASCIZ /TUS8 CONTROLLER/ 
-EVEN 
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SYSTEM MACRO DEFINITIONS SEQ 0026 
1968 ~SBTTL SYSTEM MACRO DEFINITIONS 
1070 «MACRO PUSH REG 
1071 
107 eNLIST 
107 oLIST ME 
1074 «LIS 
1075 MOV REG, (SP) 
1076 
1077 
1078 


-MACRO POP,REG 


eNLIST 
oLIST ME 
LIST 


MOV (SP)+,REG 


eNLIST 
as! 


~ENDM 


THE MACRO ‘SWAPIN' RETRIEVES THE TEST REGISTERS WHICH WERE SAVED 
IN THE DEVICE DATA BLOCK. 


SSLFSPSSSSSSLSSTARESZ 


.MACRO SWAPIN 

.NLIST 

“LIST ME 

“LIST 
MOV 6. (RS) .RO 
MOV *(R5) RI 
MOV 19. (ROS Re 
MOV 12. (R5).R 
MOV 14. (R5) .R& 

«NLIST 

“NLIST ME 

“LIST 

ENDM 


ite 
THE MACRO *SWAPOW’ SAVES THE CURRENT STATE OF THE UNIT IN Me} DRIVE “ 
DATA BLOCK IN SO THAT THE SCHEDULER MAY ‘SWAPIN’ ANOTHER UNIT. 


«MACRO = SWAPOW 


»NLIST 
oLIST ME 


ek me ee ee me ee ee me ee ee ee me a me ed ed ed ed kg ed ed td od ot oh ot ot St oh St 3 OO I 


ed ad dd td od 


Oa 


ee en! 
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CRO DEFINITIONS SEQ 0027 
LIST 
MOV RO, (RS) 
MOV R1.8. (R5) 
MOV R2. g. (R3) 
MOV 312. (R5) 
MOV R4.14.(R5) 
.NLIST 


eNLIST ME 
«LIST 


2a 
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1138 


$THE WRITE MACRO_ IMPLEMENTS THE COMPLETE PROTOCOL NECESSARY TO BUILD 
OMMAND PACKET AND SUBSEQUENT DATA PACKETS (UNTIL THE BYTE COUNT 
3 (BENT) IS SATISFIED). 


SETS UP THE et ithe PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
3 (XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). pms 
2 RSVP 0 SEND EACH PACKET, AND ‘CHKSUM' TO CALC. THE PACKET 


WONAUSWNOO 


INPUTS = pevice wT ars 
- BUFFER ADDRESS 
STERS FROM ‘SWAPIN' 


a a kt ak ke ee et a dd ad td dd 
MUMMIES RPE LL OW 


1 

1 

1 

1 

1 

1 

1 

1 

1 : 

\ 3 

1150 3 UNIT TEST RE REGI 

1151 : OUTPUTS - UNBENT (RED OF BYTES TO SEND 

1152 : XSPKNM = # OF "PACKETS EXPECTED 

1153 : XSFLG = FLAG BYTE OF 1ST PACKET 

i 4 ; XSCNT = BYTE COUNT OF 1ST PACKET 

i § : .* SUBSEQUENT XSFLGS 

1158 : ; = ~AND XSCNTS 

1159 : . wet 

1 6¢ .MACRO TUWRIT PTRN,REC,BCNT.DR, VER, 2A, 2B, 2C, 2D, 2E,2F.2G,?H,?T 

1164 .NLIST 

1165 “LIST ME 

1166 “LIST 

1167 T: MOV #TRBUF ,RO MAKE COMMAND PACKET: 
1168 MOVB  #RSCMND, aRO :C FLA 

1169 MOVB #RSMSIZ.1(RO)  :THIS SIZE 

1170 MOVB ARSSUR (RO) SINSERT OP CODE-WRITE 
1171 MOVB R,3. (RO ‘VERIFY (1 OR 0) 

1172 MOVB Retr [DRIVE # 

1173 move Oa. sf RO) MAINTENANCE MODE SWITCH 
1175 MOV BENT 8 (RO) ‘TOTAL COUNT TO WRITE 
1176 MOV C,10.(R TAT R 

1177 MOV RaSh! eri [THE PACKET SIZE PLUS+2 
1178 TST (R1)4 “(FLAG AND COUNT) INTO R1 
1179 MOV #RSSNSZ, SNDCNT(R5) ZLOAD THE SIZE TO SEND 
1180 CALL  CHKS :RO ==> R1=COUNT 

1181 R1, (RO) :PUT CHKSUM_IN PACKET 
118¢ T up EXPECTA TIONS: 
118 MOV #RSCONT «xX XSFL gcrs) LAG 

1184 MOV #1,XSCNT ( R55 + 

1185 MOV #1 ASPEN R5) :THE ‘ PACKETS EXPECTED 
1186 MOV BCNT,R2 [GET # OF DATA BY 

118 CALL RSVP *SEND (AND RETURN TO SCHEDULER) 
1188 BIT #B1T3,aR5 [FLAG BYTE ERROR? 

1189 BNE :YES 

1190 BIC #B81T12,aR5 [FLAG FOR LAST PACKET 
1191 A: MOV #TRBUF .RO :POINT TO TOP OF BUFFER AGAIN 
1198 CMP R2,#128. 3START PATA PACKET (S) 
119 PHI 128.! 

119% MOV R2,R1 {BENT<128° 
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Mronoern etd ed ed ed 
SSSSS332009 
oo oO 


ee ee ee ee ce ee ee ee ce ee ce ce ee ce ee ee ee ed ed ed ed ed ed ee ee 
Sees 
~ 


POMPPYINIPINPIPINSNSPINPINYATY 


RUROINI RENEY SN 


ek a ee ek et ed dd td dd od I 
Ww 
N 


Rofmononoponononony 
Sos Ss8 
moo 
+ 4 
a o 
-22 
=———r 
A be 





#81T12,aR5 


C 
#128. ,R1 
Ri. 1 (RO) 


ARSDATA, @RO 
(RO) + 

PTRN, (RO) + 
R3 


#177400,R1 
R1, SNDCNT (RS) 
as, aioe 


CHK 

Rt cRO)* 
R1 BITTS ans 
e 
#RSEND 


wR RSNDSE XS 
#1 LX 


#RSCONT ception 


#1,XSCNT(RS) 
#1.XSPKNM(R5) 
RSVP 
#8.173..aR5 
#B1T10,aR5 
#128. .R2 

REC BENT 
_ 


NSFLG(RS): 


‘BITS, ars 






SEQ 0029 
3S0_LAST PACKET NOW 


ZUSE ie ee COUNT 

A 128. BYTES 

;COPY COUNT TO BUFFER 

3R pi pth TO LOAD BUFFER 
FLAG FIRST 

;SKIP_COUNT 

i INSERT DATA 

sMORE? 


YES 

+ ==>TOP AGAIN 

SGET COUNT 

tZERO SIGN EXTEND 

[HOW MANY TO SEND PLUS 

FLAG, COUNT, CHKS 

[COMPENSATE FOR FLAG + COUNT 
SFOR CHECKSUM CALC. 

*CHKSUM INTO PACKET 

EVEN ON AN ODD 


[BYTE BOUNDARY 
3LAST DATA PACKET? 

aarti 
> be 1 PACKE 


:(NOT LAST), EXPECT "CONTINUE 
sAND 1 BYTE 


CKET 

SAND RETURN TO SCHEDULER 
ZFLAG BYTE RETRY? 

SRETRY DATA ERROR? 

:NO MORE DATA TO SEND? 
YES 

TRETRY HERE 

*RETRY AGAIN? 

:YES 


ano 


GLOBAL AREAS 
SYSTEM MACRO DEF 


Viv 
—Owo 


MMNIPONINoToTronn 
Eo Sot cat ee 


Mrornonrnny 
& 


SHS 


ee ee ee ee eee ee ee ee 
SNNNNN SY 
ONSWNOO 


Mroronornonsfhnry 


ek dd td td = td = 
QRARANSS Say 


nmr 
y=) 


S 


SSBVIFEBVTS 
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p++ 
3 THE pees MACRO IMPLIMENTS THE COMPLETE PROTOCOL TO INITIATE A Sick 


3 SEQUENCE. 


AND COUNTS (XSFLG 


7SETS UP THE EXPECTED PROTOCOL RESPONSES: 
EIR FLAG BYTES 


THE NUMBER OF PACKETS 
CALLS 


3 (XSPKNM) AND 
:"RSVP' TO SEND EACH PACKET, AND ‘CHKSUM’ TO CAL 
; CHECKSUM. 


INPUTS = DEVICE BLOCK @R5 
UNITS 


a 
TS TEST REGISTERS FROM SWAPIN 
RBUF = BUFFER ADDRESS 


PKNM = # OF PACKETS EXPECTED 
XSFLG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 


XSCNT). 
€. THE PACKET 


ak 
& 


SUBSEQUENT XSFLGS 
AND XSCNTS 


-MACRO TUSEEK REC,DR,?A 


«NLIST 
“LIST ME 
LIST 
A MOV #TRBUF ,RO 3-=>(POINT TO) XMIT BUFFER 
MOVB § #RSCMND,aRO [FORM COMMAND MESSAGE PACK 
MOV &#RSMSIZ.1(RO)  :THIS BIG 
MOVB #RSSSEK.2(RO)  :O0P CODE IS SEEK 
MOV REC, 10. (RC) :TO THIS RECORD 
MOVB R.4. (RO) SAND WHICH DRIVE 
CLRB . (RO) =NO MODIFI 
CLRB > (RO) [NO SWITCHES 
CLR > (RO) [NO SEQUENCE # 
CLR * (RO) [NO BYTE COUNT 
MOV #RSMS17Z,R1 [GET COUNT 
TST (R1)+ [PLUS FLAG + BCNT 
SFOR CHECKSUM CALC 
CALL § CHKSUM [RO-=>TOP  R1=# OF BYTES 
MOV R1, (RO) S INSERT INTO PACKET 
“SET UP EXPECTATIONS: 
MOV #RSSNSZ,SNDCNT(R5) ;HOW MANY TO SEND 
MOVB #RSCMND.XSFLG(RS) EXPECT END PACK 
MOV #RSNDSZ.XSCNT(R5) :COUNT WITH THIS 
MOV #1.,.XSPKNM(RS) EXPECT ONLY 1 PACKET 
CALL RSVP SEND 
SAND RETURN TO SCHEDULER 
BIT #B1T3,aR5 SRETRY (FLAG BYTE ERROR)? 
BNE 4 YES 


SEQ 0030 


ao 


GLOBAL AREAS 
SYSTEM MACRO DEF 
130. 
1308 


be 
1305 
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eNLIST 
eNLIST ME 
IST 





SEQ 0031 
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SYSTEM MACRO DEFINITIONS SEQ 0032 
1308 soe 
1309 [THE RETRY MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
i 19 SA RETRY (READ OPERATION) SEQUENCE. 
1312 ?SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
131  (XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
1314 "RSVP" TO SEND EACH PACKET, AND "CHKSUM’ TO CALC. THE PACKET 
131 CHECKSUM. 
1317 : INPUTS = DEVICE BLOCK aR5S 
1318 : TRBUF = BUFFER ADDRESS 
1319 : UNITS TEST REGISTERS FROM SWAPIN 
1321 : OUTPUTS = SNDCNT(RS) = # OF BYTES TO SEND 
1322 : XSPKNM = # OF PACKETS EXPECTED 
1323 : XSFLG = FLAG BYTE OF 1ST PACKET 
1324 : XSCNT = BYTE COUNT OF 1ST PACKET 
1325 : the 
1326 ; ; SUBSEQUENT XSFLGS 
1327 : ‘ o 
1328 : ; = AND XSCNTS 
1329 3 . *kt 
1331 es 
1332 .MACRO TURTRY REC,BCNT,DR, 2A, 2B, 2C, 2D. 7E 
1334 .NLIST 
1335 “LIST ME 
1336 LIST 
1338 D: MOV #TRBUF ,RO :FORM CMND PACK: 
1339 MOVB = #RSCMND,@RO [MESSAGE PACK TYPE 
1340 MOVB  &#RSMSIZ.1(RO) THIS BIG 
1341 MOVB  #RSSRD,2(RO [OP CODE-READ 
1342 MOV REC, 10. (RO) [THIS RECORD 
1343 VB R,4. (RO :THIS DRIVE 
1344 CLRB (RO) *PRESET NORM THRESHOLD 
1345 TSTB 5 s REDUCED? 
1346 L 3NO 
1347 INCB + YES=C THRE 
1348 E V BCNT,8. (RO) :# BYTES DESIRED 
1349 vB ‘ [MAINTENANCE MODE 
1350 CLR . (ROD [NO SEQUENCE # 
1351 MOV #RSMS1Z,R1 [SIZE OF PACKET 
135¢ TST (R1)+ “PLUS FLAG*COUNT INTO R1 
1353 #RSSNSZ,SNDCNT(R5) ;SET UP SIZE TO SEND 
1355 CALL § CHKSUM :FORM CHECKSUM R1=COUNT 
1356 MOV R1, (RO) ZINSERT IN PACKET 
1358 MOV BCNT,R1 :SET EXPECTATIONS: 
1359 [CALC # OF DATA PACKETS TO EXPECT 
1560 MOV #XSFLGRS [OFFSET OF FLAG 
1361 ADD R5,R ZABS ADDR. OF XSFLG 
1308 A INC R '# PACKETS EXPECTED 
1364 MOV MRSDATA,(R3)* LOAD XSFLG 


SSESE. 


SINNN 


I~ 


ee ee ee ee ee eee 


WWNWWIWWANWWW 


8 
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EAS 
CRO DEFINITIONS 


eNLIST 


«ENDM 


eNLIST ME 
IST 


SEQ 0033 
#132. {R3)¢ zAND EXPECT COUNT 
#128..R1 [NEG RESULT LAST TIME 
¢ SLAST TIME! 
Re SADD ONE FOR END PACK 
R2,.XSPKNM(R5) :SAVE # PACKETS TO EXPECT 
ARSEND, (R3)+ 


§ SEXPECT AN 
WRSNDS?Z,(R3)  :THIS BIG-14. BYTES 


RSVP 3 SEND 
zAND RETURN TO SCHEDULER 





1383 


1388 


BSseZee 


aE 


IW WNWNWWANW 
& 


Ww 
oo 
on 


eee ee et ee ed ed ed ed ed ed ed = ed ed = 
RELVLSS 


ee ee a a a ed ad dd dd 
RRR ee esssssss 

NOw 

SRLET 


be a ad ek ed ae ad dd 
WONAUFSWN—O 


at aoe 
=S 


tia 


CONAUE WN 


ede ed ed eb ad ad ed wed od 
La*) 


BERR ESE 


eed ah ab SD ced ob oD RD 
BRARRRRERES 
SBSEGERANS 





I 3 


GLOBAL AREAS MACRO M1113 25-FEB-82 07:06 PAGE 31 
SYSTEM MACRO DEFINITIONS 


XSPKNM 
i tRSve’ TO SEND EACH PACKET, AND ‘CHKSUM' TO CAL 
HECKSUM. 


THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). 


= DEVICE BLOCK aR5 
T - BUFFER ADDRESS 
UNITS TEST REGISTERS FROM SWAPIN 


OUTPUTS = CNT CRS? = # OF BYTES TO SEND 
XSPKNM = # OF 


PACKETS EXPECTED 
XSF LG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 
. SUBSEQUENT XSFLGS 


> = ~—AND XSCNTS 
. tke 


«MACRO TUREAD REC,BCNT,DR,VER, 2A, 28,?C, 2D, 7E 
»NLIST 

eLIST ME 

IST 


€. THE PACKET 





THE READ MACRO _IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
3A READ SEQUENCE. 


SETS eae hain Pia fg hass RESPONSES: THE NUMBER OF PACKETS 


CALLS 


3FORM CMND PACK: 


RO 
MOVB = #RSCMND,@RO MESSAGE pack TYPE 
MOVB #RSMSIZ 1 (RO) THIS 


MOVB SSRD,2(RO [OP CODE ar READ 
MOV REC, 10. (RO) :THIS RECORD 
MOVB R,4. (RO) :THIS DRIVE 
MOVB VER, 3. (RO SVERIFY 
MOV BCNT,8. (RO) [TOTAL BYTES TO READ 
move #020,5.( [MAINTENANCE MODE 
CLR $. (RO) [NO SEQUENCE # 
MOV #ESMSIZ,R :GET SIZE OF PACKET 
TST R1)+ “+ 
MOV #RSSNSZ,SNDCNT(R5) ;:SIZE TO SEND 
CALL CHKSUM ZFORM CHECK KSUA R R1=COUNT 
MOV R1, (RO) SINSERT CHECKSUM 
MOV BCNT,R1 :SET EXPECTATIONS: 
[CALC # OF DATA PACKETS TO EXPECT: 
MOV #XSFLG.RS [GET OFFSET 
ADD RS,R 3ABS. ADDR. OF XSFLG 
CLR Pi PRESET 
A INC # PA EKETS EXPECTED 


sAND EXPECTED COUNT 
tie LAST TIME 


R 
MOV #RSDATA (R3)* TLOAD X 
MOV ; (R3)+ 


**R1 :NEG 
LAST 
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SYSTEM MACRO DEFINITION SEQ 0035 
1440 BR A :MORE T 
1441 C: INC Re SADD ONE FOR END PACK 
144 MOV R2,XSPKNM(RS) SAVE # PACKETS TO EXPECT 
144 MOV #RSEND, (R3)* | :EXPECT AN END ALSO... 
1444 MOV WRSNDSZ,(R3) THIS BIG-14. BYTES 
1445 CALL RSVP :$ 
1446 AND RETURN TO SCHEDULER 
1447 D: BIT WBITIO!BIT3,aR5 :RETRY 
1448 BEQ B iNO. 
1449 TURTRY REC,BCNT,DR YES 
1450 BR D tANOTHER RETRY? 
1451 B: NOP NO 
149¢ 
145 
1454 .NLIST 
1455 "NLIST ME 
1456 “LIST 
1457 * ENDM 
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SYSTEM MACRO DEFINITIONS 


1<e? 


os 
as 


THE SELF TEST MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO 
3 INITIATE A "DIAGNOSE’ SEQUENCE. 


SETS UP THE eein Tt PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
SPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
itRSVP®. TO SEND EACH PACKET, AND 'CHKSUM’ TO CALC. THE PACKET 


QEEFAS 


INPUTS = DEVICE BLOCK @R5 
TRBUF = BUFFER ADDRESS 
UNITS REGISTERS TEST FROM SWAPIN 


OUTPUTS =- SNOT CRS? = # OF BYTES TO SEND 
XSPKNM = # OF PACKETS EXPECTED 
XSFLG = FLAG BYTE OF 1ST PACKET 
XSCNT = BYTE COUNT OF 1ST PACKET 


Rak 
* SUBSEQUENT XSFLGS 
; =~ AND XSCNTS 
ake 


arIetRaNZSSSB 


ea a ak a ke a ad ad dd 
SIaNoe 


-MACRO TUSELF ?A 
eNLIST 
-LIST ME 
LIST 
ATRBUF ,RO 3 FORM — PACKET 
#RSCMND ,@RO 3¢ 
#RSMS1Z,1(RO) SIZE 0 P MESSAGE 
#RSSSLF .2(RO) F TEST OPERATION 
3(RO) NO. I 
NO DRIVE OR SWITCHES 
3NO SEQUENCE NUMBER 
:NO BYTES 
3NO_RECORD # 
26 T SIZE 


(R1)4 FOR CHECKSUM 
ARSSNSZ, SNDENT (RS) *SIZE TO SEND 
CHKSUM 7FORM CHECKSUM 
SINSERT INTO PACKET 
zEX T END 
Zab 1 


RSVP ;RETURN TO SCHEDULER 
ase T3,@R5 RETRY? (BAD FLAG) 


)° 
5) 


eb a Ro a 
ARWNASSBNEN 





¢o2 


GLOBAL AREAS MACRO M1113 25-FEB-82 07:06 PAGE 35 Gl 
SYSTEM MACRO DEFINITIONS SEQ 0037 Gt 
1518 stt 
1519 :THE TEST ID MACRO INTERFACES THE SUPERVISOR'S TEST DISPATCH TO THE 
1520 ;DIAGNOSTIC'S FORMAT BY IMPLEMENTING CALLS THAT: 187 INITIALIZE THE 
1521 3PC_OF THE TEST CODE (TSTPC(R5)), 2) ASSIGN a DRIVES, 3) RUN 
1356 THE TEST, 4) SWITCH DRIVES AND “REINITIALIZE, 5) RUN THE TEST AGAIN. 
1524 
1525 «MACRO TSTID ADDRES,?A 
1526 
1527 eNLIST 
1528 oLIST ME 
1529 »LIST 
1530 MOV ADDRES,TSTTOP ;SAVE ADDR OF TEST 
1531 CALL SETUP ZINIT_ UNITS TSIPC 
1532 * CALL SETDR 3GET 1ST DRVS. 
1533 CALL RUN EST 
1534 CALL SWAPDR IGET NEXT DRVS. 
1535 BCC A 7BR NO 2ND DRVS 
1536 CALL SETUP ZREINIT UNITS TSTPC 
1537 CALL RUN ;REPEAT TEST 
1538 A ; DONE 
1539 eNLIST 
1540 eNLIST ME 
1541 LIST 
1542 - ENDM 
1 543 3 eae 2 OS Geb SE em eS ES EE TE OS ew OS SD eS SD Ge ee Go Be eS Too wD ae2eewereoe Se eeee Qe ese ene Geet Se Ss eee OV Be eT SVE esen 
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GLOBAL SUBROUTINES SECTION SEQ 0038 






1346 -SBTTL GLOBAL SUBROUTINES SECTION 

1548 ; 3++ 

1549 : THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES THAT ARE USED 
1390 : TO LINK THE DIAGNOSTIC TO THE SUPERVISOR (THROUGH THE TSTID MACRO). 
1396 

155 p++ 

1554 3 SWAPDR 

1555 3 SUBROUTINE TO DETERMINE IF TO TEST OTHER DRIVE (FOR ALL UNITS) 
1562 3 INPUTS: DR(R5) = DRIVE CONF IGURAT 

1563 3 BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
1388 H LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
1566 3; OUTPUTS: DR(RS) UPDATED TO TEST SAME OR OTHER DRIVE 
iF 574 : CARRY SET IF SECOND PASS NECESSARY 

1622 : 

1623 005530 003006 SWAPDR:: CLR R2 3FOR # OF DRIVE 1°S. 

1624 005532 gists 003350 005630 MOV WBLKTBL,SWPTR ;TABLE ADDR. OF 1ST UNIT 
1052 005540 017705 000064 1$: MOV a@SWPTR,RS GET DATA BLOCK ADDR. 

1626 005544 032715 100000 BIT 1T15,aR5 ABORTED? 

1627 005550 001013 BNE 3 

1628 005552 032765 000001 000060 BIT #B1TO,DR(R5) DID DR. 0? 

1629 005560 001007 BNE 3NO, DID DR.1 1ST PASS 

1630 005562 032765 001000 000060 BIT #BIT9,DR(RS) [YES; 1 SELECTED? 

1631 005570 001403 BEQ 3$ 3NO, ALL DON 

1632 005572 105265 000060 INCB DR(RS) YES, SWAP 

16335 005576 00520 INC R ONE MORE TO TEST 

1634 005600 023727 005630 003366 3$: C SWPTR,ALSTDEV ;LAST DEVICE? 

1635 005606 103004 BHIS 7YES 

1636 005610 062737 000002 005630 ADD #2,SWPTR NO-POINT NEXT 

1637 005616 000750 BR 1$ 3b0 

1639 005620 005702 4$: TST Re : (CLEAR CARRY) ,MORE TO DO? 
1640 005622 001401 BEQ 5$ 3NO 

1641 005624 000261 SEC zYES 

166 005626 000207 5$: RETURN RETURN 

1644 005630 000000 SWPTR: .WORD 
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GLOBAL SUBROUTINES SECT SEQ 0039 


—* 


++ 
SETDR - SUBROUTINE TO GET DRIVE FOR 1ST PASS FOR EACH TEST 
INPUTS: DR(RS) = DRIVE CONFIGURATION 
BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 


OUTPUTS: DY 4) IS SET TO TEST DRIVE 0 OR DRIVE 1 


— WOLKTBL,SETPTR ; ADDR. 1ST UNIT 
18: @SETPTR,R ; ADDR. 


DR(RS) 
#B1T8,DR(RS) 
2s 


BBALAL ADD RE 


DARA AAOO 


DR(RS) 
2s: CMP sf TPTR ,ALSTDEV 


Ss 
iNO-E 
og -SEtPeR . ABLE ENTRY 
1 :C THAT UNIT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SESSESERSS 


3$: RETURN 
SETPTR: .WORD 
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GLOBAL SUBROUTINES SECTION SEQ 0040 GI 

167 p++ 

1673  CLRALL = CLEARS INPUT BUFFER FOR RESPONSE FROM UNIT. 

1675 + INPUTS: BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 

1676 : LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 

1678 : OUTPUTS: ALL UNITS BUFFERS CLEARED. 

1680 : CALLS: CLRBUF 

198) ;-- 

1688 005710 012737 003350 006002 CLRALL:: MOV WOLKTBL .CLRPTR ;TOP OF TABLE OF ADDRESSES 

1684 005716 017705 000060 1S: MOV @CLRPTR.R SGET DATA 

1685 095722 004737 005750 CALL  CLRBUF :CLEAR IT'S LRECEIVE BUFFER 

1686 0057 6 025/27 006002 003366 CMP LRPTR,ALSTDEV LAST DEV? 

1687 005734 1 004 BHIS YES 

1688 005736 062737 000002 006002 ADD #2,CLRPTR ==>NEXT 

1689 005744 000764 BR 1$ > CONTINUE 

1690 005746 000207 2$: RETURN 
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GLOBAL SUBROUTINES SECTION 


012600 
000207 
000000 





+ CLRBUF ° cee 1 
; INPUTS: 





IT'S INPUT BUFFER. 
VBUF (RS) IS BUFFER START 
ai = SIZE OF RECEIVE BUFFER IN BYTES 
RCBF $2 IS SIZE OF BUFFER 
CLEARED AREA. 
RO SAVE RO 
Mov RO,-(SP) 
RG SAVE R4 
MOV R4,-(SP) 
RCVBUF(RS),RO GET _ADDRESS OF BUFFER 
#RCBFSZ,R4 iSizE IN BYTES 
(RO)+ IT 
ne. oS Ct BYTES LESS 
R4 *RESTORE 
MOV (SP)+,R4 
RO 


Mov (SP)+,RO 
ZEXIT 
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GLOBAL SUBROUTINES SECTION SEQ 0042 


1714 :+ 

1715 3 SETUP - CALLED | WITHIN EACH TEST 19 cNSERT BEGINNING ADDRESS OF THE 
1716 ; TEST INTO ALL UNITS TEST P 

1717 : INPUTS: TSTTOP LOADED WITH TEST “ALGORITHMS STARTING ADDR. 
1718 ; BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 

1719 : LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 

1261 : OUTPUTS: TSTPC(RS) FOR ALL UNITS 

17 é : DONE = CLEARED 

1353 id 

1725 006004 005037 00 SETUP:: CLR DONE NOT DONE | ver 

1726 seat O13787 09 $6 003324 MOV #BLKTBL oPTR STABLE T 

1727 1 017705 175302 1$: MOV @IDPTR,R SOeetE oP ATA BLOCK 

17 1 26 003326 900020 MOV TSTTOP, TSTPC(RS): INSERT PC FOR TOP OF TEST 

17 23727 003324 003366 CMP DPTR,ALSTDEV  :ALL UNITS SET? 

1730 006036 10 BHIS iVES 

1731 000002 003324 ADD #2, 1DPTR GET NEXT POINTER 

17 : BR eet HIM UP 

173 2s: RETURN [DONE 








aD 
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GLOBAL SUBROUTINES SECTI SEQ 0043 
1736 3+ 
1737 : RUN = IMPLEMENTS THE CALLS TO SEND PACKETS, RECEIVE PACKETS, THEN 
1738 : CHECK ANSWERS DURING TEST RUN TIME. 
1739 : INPUTS: DONE 
1740 : OUTPUTS: NONE 
1 es 
1743 006052 004737 006102 RUN:: CALL NXTST ;MAKE AND SEND NEXT PACK TO ALL 
1746 SUNABORTED UNITS 
1745 006056 005737 003322 TST DONE 3 COMPL LETE? 
1746 006062 0010 BNE 2 
1247 006064 004737 007152 CALL = GETANS (NO. GET ALL RESPONSES 
1749 006070 | BREAK ;SUPERVISOR CHECK 
ond 006070 104422 TRAP — CSBRK 
1751 006072 004737 010576 CALL CHKANS sCHECK ALL RESPONSES 
1752 006076 000765 BR R SCONTINUE TILL DONE 
1753 006100 000207 2$: RETURN 
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NXTST / THE SCHEDULER 





1736 .SBTTL NXTST / THE SCHEDULER 
1758 ++ 
1759 : NXTST = DISPATCH EXECUTION USING EACH UN-ABORTED UNIT'S TEST PROGRAM 
1760 : TER, (TSTPC(RS)). (THE POINTER TO THE TEST CODE THAT COMPRISES 
1761 ; ING A PACKET AND SENDING IT. CHECKS FIRST FOR ANY UN-ABORTE 
762 : THAT IS RETRYING EITHER A DATA ERROR OR A ‘INDECIPHERABLE FLAG BYTE’ 
176 : ERROR, IN ORDER TO SERVICE ONLY THAT UNIT THIS PASS. INIT 
1764 ; NON-RETRYING UNITS IF NECESSARY. IF NO RETRIES,DISPATCH ALL 
1765 : UNITS IN ROUND ROBIN FASHION. 
1767 : INPUTS: (IMPLIED) DATA BLOCKS. 
1768 : BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
1769 ; LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
1771 3; OUTPUTS: ERRSF IF ALL UNITS ARE ABORTED.(TO NOTIFY APT) 
1772 : SYSTAT IS UPDATED 
1773 ;- 
1774 
1775 006102 900240 NXTST:: NOP : 
1776 006104 012737 003350 003312 MOV WBLKTBL,DEVPTR UNIT 0 TO START 
1777 006112 017705 175174 1$: MOV @DEVPTR.R *GET DATA BLOCK 
1778 006116 005715 TST aR S ABORTED? 
1779 006120 100504 BMI 2$ > YES... CHECK NEXT UNIT 
1780 006122 032715 000010 38: BIT #B1T3, ars [NO-RETRY °B FLAG"? 
1781 006126 001040 BNE $ TYES...(SEND | AK; THEN CMD PACK) 
1782 006130 032715 020000 BIT #81T13,aR5 SNO-RETRYING STILL (NO END PACK YET)? 
1783 006134 001426 BEQ NO... 
1784 006136 032715 000400 BIT #8178, aRS TRETRYING A WRITE? 
1785 006142 001453 BEQ 4$ NO... 
1786 006144 SWAPIN : YES-GET DEVICE REGESTERS 
006144 016500 000006 mOV . (R5) RO 
006150 016501 000010 MOV (R5)-R1 
006154 016502 000012 MOV LQ sR 
006160 016503 000014 MOV 12. (R5).R 
006164 016504 000016 MOV 14. (R5) RS 
1787 006170 020265 000206 CMP R2.SAVCNT(RS) CURRENT COUNT = SAVED COUNT? (WHERE WE STARTED) 
1788 006174 001036 BNE [NO... (CONTINUE SENDING DATA PACKS) 
1789 006176 0427 000004 003306 BIC WBIT2,SYSTAT  :YES-CLEAR RETRY FLAGS 
1790 042715 020000 BIC 1718, ars : 
1791 19 900450 BR [CHECK NEXT UNIT. 
1798 12 032715 002000 7$: BIT #81T10,aR5 [NO-RETRY DATA ERROR? 
179 006216 001445 BEQ [NO...ON TO NEXT UNIT 
179% 052737 000002 003306 BIS #171 ,SYSTAT [SET RETRY STATUS TO "DATA ERROR’ TYPE 
179 006226 000424 BR YES... 
1797 0062 5$: SWAPIN -GET DEVICE REGISTERS 
vee 016500 000006 MOV 6-85) 0 
006254 16501 1 MOV (R5)-R 
40 16508 1 MOV 10. (RSSR 
44 01650 1 MOV 12. (R5).R 
50 016504 16 MOV 14. (R5) -R4 
1798 006254 010265 000206 MOV R2,SAVCNT(RS) ;SAVE THE BYTE COUNT (FOR WRITE OPERATION) 
1799 [TO MARK HOW MANY DATA PACKS TO SEND 
1800 006260 004737 014010 CALL  DOBRK [SEND INIT 
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SCHEDULER 


032715 


052787 


004775 


~ Ss o- 
Ww 

geeeeees 

= 2S TNS A> 

FUOUNNMUCOUMW YUN 


ooooo 
at ha 
AAAXKO 
Bawa 
RaNLS 


00477 
71 





AWMAOw 


00 
1 

$4 
16 


SONNE NNNUNM 


\=] 
Skee 
SoNNNONT 


1 


006144 
006534 


2 


1044 


s 
Ww 
ia) 
~NrD 


— 
Rg 
a 
Pa 
& 


100000 


003340 


003306 


003366 
003312 


003312 


003366 
003312 
006532 


4$: 
6$: 


2$: 


NXTST2: 
PERDEV: 
3$: 


6$: 


5$: 


11$: 


BIT #81T15,aR5 
BNE 

BIS #B1T2,SYSTAT 
SWAPIN 


JSR PC ,aTSTPC(RS) 


BR NXTRE 

CMP DEVPTR ,ALSTDEV 
BHIS NX 

ADD #2. ,.DEVPTR 

BR 1$ 

CLR 


TST @R5 

BM 4$ 

BIT #81714 ,aR5 
6$ 


CALL DOBRK 
BIT #81T14,aR5 
BN 4$ 


TST aR5 
BMI 4$ 
SWAPIN 


JSR PC ,a@TSTPC(RS) 


TST ar§ 
BPL aE 
INC ABONM 
CMP DEVPTR,#LSTDEV 
BHIS $ 
ADD #2. ,DEVPTR 
BR PERDEV 
CMP #8. 
E NXTRET 


BN 
ERRSF 100.,NOMOR 


ALLGON 


ABONM 
Vv coke, ogre 
@DEVPTR,R 


sABORTED? 


SVESece 
NOT ABORTED-SET RETRY STATUS 
ic DEVICE REGISTERS 


M0 ‘ 
(R5)-R1 

MOV g. (R55 Re 

12. (R5).R 
MOV 14. (R5)R4 
:D0 TEST FOR 
[THIS UNIT ONLY-EXIT 
STRY NEXT UNIT? 


3NO 
3 YES ,~>NEXT 
3GET BLOCK 


See eait RETRIES TO DO, NO UNIT ABORTED YET 


37>>UNIT 0 STORA 


G K 
3R5=->NEXT DEVICE STORAGE BLOCK 


ABORTED? 
:SEND BREAK? 

YES 

*SUCCESSFUL INIT? 
{NOON TO NEXT UNIT 


SEQ 0045 


NEXT UNIT 
Nl pevies REStSrERS RO-R4 CONTAINING TEST PARAMETERS 


3 ED? 
TYES-ON TO 

V 6. 
MOV *(R5) RI 
MOV 10. (R35 .Re 
MOV 12. (R5).R 
MOV 14. (R5) .R& 


sYES 
sALL TU'S TRIED? 
sYES 


3NO THE ADDRESS+2=NEXT ADDRESS 


3D0 NEXT UNIT 
sALL ABORTED? 


2NO 
:YES! 


;SUPERVISOR BREAK 


TRAP 
+ 51M aalhiecteaaeel STATISTICS FLAG 


Gl 
G| 
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GLOBAL AREA 
NXTST / THE SCHEDULER 


17 006530 000207 


841 
1868 O0ess 101 


1844 





114 


NXTRET: 


ABONM: 
114 NOMOR: 


RETURN 


. WORD “THE NUMBER OF ABORTED UNITS 
ASCIZ /ALL UNITS ABORTED!/ 


SEQ 0046 


a 
—— 
ees Se 


Gl 
Ch 
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RSVP / XOFF AND SEND A PACKET TO ALL DEVICES SEQ 0047 


1846 .SBTTL RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 
1848 3+ 
1849 ; RSVP = SAVES TEST CODE PROGRAM COUNTER IN TSTPC(RS) AND UNIT'S REGIS- 
1850 ; TERS. IF NOT IN TEST 8, POINTS TO "XOFF’’ THAT PRECEEDS PACKET IN 
1851 : “BUFFER AND SENDS PACKET WITH XOFF. pRETURNS TO SCHEDULER (NXTST) 
185¢ ; SO THAT OTHER UNITS PACKETS TO GET ALL UNITS WORKING 
185 ; AT ONCE. IF IN TEST 8 AND THE UNIT IS cot MODIFIED, skip REST OF 
1854 ; ROUTINE. IF IN TEST 8 AND THE UNIT IS MODIFIED DO NOT SEND XOFF AND 
1855 : PROCEED NORMALLY. 
1856 t INPUTS: (SP) CONTAINS UNITS PC TO SAVE SINCE RSVP WAS CALLED, 
185 : NUMBER PACKETS EXPECTED (XSPKNM) THE EXPECTED FLAGS AND 
1858 ; BYTE COUNTS OF EACH (XSFLG! NeenT en) ARE LOADED BY TEST CODE 
1860 ; SNDCNT = # BYTES To SEND 
1861 ; REC(RS) = RECOR a 
1862 : TRBUF = BUFFER 
1863 ; XSPKNM(R5) = # EXPECTED 
1864 ; RCVBUF (R5) 
1866 : OUTPUTS: CMDSNT = UPDATED WITH PACKET OP CODE 
1867 ; BLKER = RECOR D NUMBER STATISTICS UPDATED IF NOT RETRYING 
1868 ; AND CHAN ACKET SENT. 
1869 : SUCCS(RS) = PRESET iss 
1870 ; STATUS WORD aR eit = DATA CHECK ERROR = CLEARED 
1871 ; BIT ‘VERIFY’ OPERATION 
187¢ : i”? - 0 = DATA Pack 1 = CMND 
187 ; BIT = ROR OPERATION 
1874 3 XSPTR - POINTS TO EXPECTED FLAG 
1875 ; UPPER BYTE OF XSPKNM IS REPL LTCA TED. 
1876 : PACKET POINTER (PKPTR(RS)) POINTS TO TOP OF UNITS RECEIVE BUFFER 
1377 ; AREA (RCVBUF(RS)) FOR CURRENT UNIT. 
1879 F 
1880 006560 000240 RSVP:: NOP :FINISH TEST 
1881 006562 012665 000020 MOV (SP)+,TSTPC(RS) :SAVE WHERE YOU WERE IN TEST BODY AND 
1882 006566 SWAPOW + SAVE Tes! 1 REGISTERS 
006 010065 MOV 
006572 010165 1 MOV nt. (R5) 
006576 010265 1 MOV g°19. (Rs « (RB) 
006602 010365 14 MOV 
006606 010465 16 MOV ns: 18: {n2} 
1883 
1884 ZCORRECT FOR RETURN TO SCHEDULER 
1885 000002 003342 CMP #2, TESTS peeees IS THIS TEST 9 
oe BNE Seenee NO 
182 000000 000210 CMP #0,MRSP(RS) peeeee IF SO, IS THIS UNIT MODIFIED 
1888 BEQ ENDRSP peseee YES 
1889 027722 NOXOFF: MOV #TRBUF ,RO [FOR NORMAL PACKET SEND 
1890 S + SEND KOFF SPACKET 
1891 7721 XFNSND: MOV #TRBUF-1,RO :POIN XOF F 
1898 9 INC SNDENT CRS) ZONE MORE TO SEND, TOO. 
189 10 SND: CALL = SNDBYT SEND 8 
1896 ae Rime To. yee ouit 
1896 000070 DEC SNDCNT (RS) [NO, SEND MORE 








1897 006664 
18 

1 

1 

1901 7 
1G 71 
1903 00671 
1904 006724 
1 Bi 
as 

1908 006776 
1909 00674 
1910 Boorse 
1911 00675 
at 006756 
191 

1914 006762 
1915 006766 
1916 006770 
1917 006776 
1918 007000 
1919 007004 
1920 007010 
196! 007012 
19 § 007016 
1923 007020 
1924 

1925 007024 
1926 007032 
I96r 0070. 
1928 007040 
139) 00 

19 oo7nes 
1931 00705 
1938 007054 
1933 007060 
1934 007064 
1935 007066 
1oe6 007072 
193 

1938 007074 
1939 007100 
1940 007100 


~ee o- —- 
Se8e Bsus 
sey Yess 


SFS 
et 
~N 


VMANUIINESU VMN 


sss 
Sere 


200088 


000104 


000002 


000003 


5$: INC 


6$ 
ENDRSP: RETURN 


SND yIF MORE TO SEND 
#TRBUF ,RO + ==>BUFFER 
REC(RSS,BLKER :PREPARE FOR RECEIVE 
XSPKNM(R5),.XSPKNM+1(R5) :REPLICATE LO. BYTE TO HI FOR GTPAKS, CHKANS 
SUCCS(R9) zNO SUCCESS YET 
#BIT9, aR [NO DATA CHK ERROR YET 
RCVBUF(R5) ,PKPTR(RS) ;TOP OF RCV BUFFER GOES THE 1ST PACKET 
#XSFLG,R4 sf 
R5,R4 S ADDRESS 
R4.XSPTR(RS) OF 1ST XSFLG 
#B1Té ars :PRESET AS DATA PAK 
@RO,ARSCAND WAS IT COMMAND PAK? 
(RO),CMDSNT(RS)” ;YES-SAVE COMMAND 
#B1T4,aR5 z1TS CAND PAK 
#81T10, ars ;RETRYING? 
*YES=DON'T UPDATE ANY STATS OR CONDITION 
(RO) ,#RSSRD :NO.A READ? 
#8178, aR5 (FOR HARD/SOFT LOGGING) RD/WR FLAG=0 
WHICHDR [GET DRIVE 
RDNO(RS) SDRIVE 0 
RDN1(RS) [DRIVE 1 
2(RO) ARSSWR A WRITE? 


#8178..923 SYES, RD/WR FLAG=1 
(RO) ERIFY TOO? 


1$ NO 
175.aR5 SYES-SET VERIFY FLAG 
#B1TS,aRS 3 (NO)“RESET VERIFY FLAG i 
WHCHDR [GET DRIVE NO 
5$ 3: CARRY=DR1 
WRTNO(RS) [# BLKS WRITTEN DRO 
6$ EXIT 
WRTN1 (RS) 3@ BLKS WRITTEN DRV1 


zRETURN 
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SNDBYT / OUTPUT A BYTE T 





1943 .SBTTL SNDBYT / OUTPUT A BYTE TO UNIT 
198 o 
1946 ; SNDBYT = TEST "READY' ON INTERFACE. IF "READY', SEND BYTE AND EXIT. 
1947 : IF TIMED OUT. LOG ERROR. 
1948 ; INPUTS - RO = POINTER TO BUFFER 
1949 3 - IMPLIED _ UNIT DATA BLOCK 
1950 ; = TIMEOUT CONSTANT 
1951 3 OUTPUTS - rh rt INCREMENTED. 
195¢ + ERROR = NOT-READY-TO-SEND TIME OUT 
1954 F 
1955 007102 SNDBYT:: PUSH 1 sENTER RO-->BYTE 
007102 010146 MOV R1,-(SP) 
1956 007104 013701 003344 4$: MOV CSNRDY,R1 :GET TIMEOUT CONSTANT FOR NOT READY ERROR 
1957 007110 105773 000026 1$: TSTB aXMSR(RS) READY 0 SEND? 
1958 007114 100412 BMI 2$ 
1959 007116 PUSH RO oNO. SAVE RO 
007116 010046 MOV RO,-(SP) 
1960 007120 BREAK :MONITOR BREAK 
007120 104422 TRAP C$BRK 
1961 007122 PoP RO -RESTORE 
007122 012600 MOV (SP)+,RO 
1962 
1963 007124 005301 DEC R1 :ABORTED? 
1964 007126 001370 BNE 1$ NO 
1965 007130 0127 056 MOV ATOSNDB,R4 [YES,SET CODE FOR TIMEOUT ERROR 
1966 007134 004737 012634 CALL 0G [LOG IT 
1967 007140 00040 BR $ SQUIT 
1968 007142 112075 000030 2$:  MOVB = (RO)+, @XMDB(RS) :SEND IT 
1969 007146 3$: POP R1 "RESTORE 
007146 012601 MOV (SP)+,R1 


1970 007150 000207 RETURN 3 DONE 


EAS 
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GLOBAL AR P, 
GETANS / GETS RESPONSES ROUND ROBIN USING ‘'XON 
.SBTTL GETANS / GETS RESPONSES ROUND ROBIN USING ‘‘XON'’ 


1973 
Ne 


seHisie 
Ssss 


Bn eae 
co 
oO 
N 
= 
“ 
o 


S3EZE33 
S 
3 


" GETANS . 4 A_UNIT IS RETRYING CLEAR HIS RECEIVE BUFFER (CLRBUF) AND GET 


S RESPONSE (GTPKS1) ELSE. CLEAR ALL BUFFERS (CLRALL) AND 


GET ALL RESPONSES (GTPKS8) 


: INPUTS: SYSTAT = SYSTEM STATUS WORD. 


; OUTPUTS: SERVST = -1 IF NO RETRIES. 


ooge9 GETANS:: NOP 
032737 000006 003306 BIT 
001010 BNE 
012737 177777 010342 MOV 
004737 71 CALL 
004737 007430 CALL 
000404 BR 
004737 005750 1$: CALL 
004737 007220 CALL 
000207 2s: RETURN 


000000 GETPTR: .WORD 


UNIT IF RETRY; ELSE ALL 
#B81T1!B1T2, systai. gRETR 


Ss 

#-1,SERVST ;PRESET NO UNITS seavicee 
CLRAL CLEAR ALL_INPUT BUFFERS 
| Sa aH ALL REPLYS 
CLRBUF RETRY-CLEAR 1 UNIT ONLY 

eR =>UNIT BY NXTST 
GTPKS1 7GET 1 REPLY 

3 DONE 





SEQ 0050 





AREAS 
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GLOBAL 
GTPKS1 / GET RETRY RESPONSE-1 UN 


REERERE pene 
CUSONOULSWN =O 

Ss 

ny 


BE 
3s 
my 


BREE 
sesses 


ge Ss 
z3 


S8Sssss 
MWEWN OO 


SSSsss 


oo°0-0—— 
SlSnsn=ss 
VWNesroowovNwoNe 
“Ni 
SUSRRGRSALAUWSS 
NONNOOUNNNROT 


= 
iN 


Soa Sec 


geass 
$5 


ret 
Sx 


Ss 
o 


000016 
000001 
000001 
000204 
003316 
010346 
000074 


100000 








SEQ 0051 





-SBTTL GTPKS1 / GET RETRY RESPONSE-1 UNIT 





; :*GTPKS1 - SENDS "XON' TO UNIT, GETS FLAG BYTE (IF ANY), CHECKS IF IT IS 

; T WAS EXPECTED. IF IT IS, USE EXPECTED BYTE COUNT(XSCNT). IF 
; NOT CHECK IF PREMATURE-END PACK OR (SINCE MAINTENANCE MODE) 

: IF IT°S A PREMATURE DATA PACK. ADJUST COUNT, GET REST OF 

: hcker® AND REPEAT ABOVE UNTIL NO MORE PACKETS. 

: INPUTS: (IMPLIED) UNITS DATA BLOCK 

: RSNDSZ = END PACKET SIZE 


; ;_OUTPUTS: SYSTAT UPPER BYTE = FLAG BYTE RECEIVED 





GTPKS1:: NOP zR5=->THE UNIT 
MOV #XSFLG,R3 [THE OFFSET VALUE OF FLAG 
ADD RS,R3 3FORM THE ABSOLUTE ADDRESS 
MOV 3°R1 3==>ADDR. OF EXPECTED FLAG 
ADD #2.,R1 [R1==>ADDR. OF EXPECTED COUNT 
MOV #EXON,RO SRO=ADDRESS 
CALL  SNDBYT *XON THE DEVICE 

ieee TIME CRITICAL 


MOV RCVBUF (R5) ,R Saktee> TO THE BUFFER 

MOVB ae TeRs oy Re 3 **eGET THE # OF PACKETS TO RECEIVE 
BIT #177400,R2 3 EXTEN 

1$: MOV @R1 ,RCBCNT s%eeHOW MANY BYTES IT SHOULD BE 
@R3,RCFLG 3 











GTBYTE ; seeGET ALL IMPORTANT FLAG 
BIT #81715 ,aR5 
BNE 4$ 
DEC RO <> BYTE RECIEVED 
MOVB @RO,SYSTAT+1 7SAVE IT AS FLAG BYTE 
AA @RO,RCFLG 21ST BYTE WHAT WAS EXPECTED? 
Ae @RO,ARSEND :ND, WAS IT END PAK? 
MOV #RSNDSZ ,RCBCNT 3YES. USE END SIZE FOR COUNT 
MOV #1,R2 AND ASSUME _IT°S LAST PACKET! 
BR i CONTINUE REC cel VE 
148: CMPB @RO,ARSDATA : IT DATA? 
BNE 4$ CHKANS MAY tr INT se 
MOV #RSDASZ ,RCBCNT yes, SET FOR DATA PAK SIZE 
INC R2 ZONE MORE PACK THAN EXPECTED (END PACK) 
g8: INC RO sRESTORE TO => NEXT BYTE 
$: oes RCBCNT THAT” S ONE LESS BYTE TO GO 
CALL srerrs 3GET REST OF PACKET 
TST DLV(R5) 
BNE SYES-ALL OVER 
BIT #81715 ,aR5 OR IF ar 
BNE 4$ THEN QUIT 
5$ ZCONTINUE RECEIVE 
3$: DEC Re sONE_LESS PACKET TO GO 
BEQ 4 


:MORE PACKETS IN TRANSACTION? 


arene EAS __ MACRO M1113 re 07:06 PAGE 56-1 
GTPKS1 / GET RETRY RESPONSE-1 UN 


pes sa 

058 0074 

059 007424 000207 
sah 


4$: 
EXON 


EXOFF : 


-BYTE 
-BYTE 


RSXON 
RSXOF F 


:POINT TO NEW EXPECTED COUNT 
AND F 

SAND RECEIVE, 
RETURN 


SEQ 0052 


Gl 
Ck 
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GTPKSE / GET RESPONSES (NO RETRIES) SEQ 0053 
065 .SBTTL GTPKS8 / GET RESPONSES (NO RETRIES) 
7 +4 
068 ; GTPKSB ° i IN_TEST 9 AND THE UNIT IS NOT MODIFIED, SKIP THE REST 


aj ROUTINE. 


oO 
— 
= 


ERW 
T ALL_ABORTED UNITS ahtie (SERVST: BIT POSITION). UNTIL 


071 : ALL UNITS SERVICED (SER PACKETS, SET UNIT 
2 ; SERVICED ELSE, GET A FLAG “Byte. FROM UNIT DECREMENTI TING THE 
7 : NUMBER OF PACKETS LEFT. CHECK TO SEE IF EXPECTED 
074 : ADJUST POUNT IF NOT, GET REST OF PACKET. IF WAS pata Se ack, 
75 : AND NOT IN TEST 9, SEND “‘XOFF’’ TO ENHANCE THROUGHPUT AND | 
2076 : NEXT UNIT CIF ANY). IF IN TEST 9, DO WOT SEND "'XOFFF’. 
2077 : INPUTS: INPLIED)UNITS DATA BLOCK POINTED TOBY RS. NONE PASSED. 
2078 : RSNDSZ = END PACK SIZE 
2079 ; RSDNSZ = DATA + END SIZE 
2081 : OUTPUTS: SYSTAT = UPPER BYTE=1ST BYTE RECEIVED, CURRENT UNIT 
83 P 
2084 007430 900240 GTPKS8:: NOP :GET ALL UNITS RESPONSES XOFF IF DATA PAK (THROUGHPUT) 
5 007432 022737 000002 003342 CMP #2, TESTO veeeee IS THIS TEST 9 
2086 007440 001006 BNE 1$ teeeee NO 
2087 007442 022765 000000 000210 CMP #0,.MRSP(RS) teases IF SO 1S THIS UNIT MODIFIED 
2088 007450 00100 BNE 1$ teeeee YES, CONTINUE NORMALLY 
2089 007452 000137 010146 JMP ENDGP8 zeenne ELSE, oeiP NROUTINE 
5090 007456 012737 003350 010344 1S: MOV #BLKTBL gTPTR =>1ST 
2091 007464 017705 000654 GTAGIN: MOV acTPTR, :GET DATA BLOCK 
2092 007470 032715 100000 BIT #B1T15.aR5 ;ABORTED? 
2093 007474 001404 BEQ 2$ 
209% 007476 004737 010256 CALL SETSRV SYES-SET’ SERVICED’ AND 
2095 007502 000137 010104 JMP GTDOWN [ON TO NEXT UN 
209 007506 105765 000033 2$: TSTB §XSPKNM#1(R5) = =NO, ANY PACKETS LEFT? 
5097 00751 001 BNE 3$ YES 
2098 007514 737 010256 CALL SETSRV [NO-HE'S DONE 
007520 000137 010104 JMP GTDOWN *SO0 ON TO NEXT UNIT 
2100 0075246 105365 900053 3$: DECB §XSPKNM+1(R5) §:NOW ITS ONE less PACKET 
3101 007530 017537 106 003314 MOV SXSPTR(RS) RCFLG ;GET EXPECTED FLAG 
102 007536 0627 5 000002 000106 ADD #2,X $) => 
2103 007544 01 537 000106 003316 MOV SXSPTRIRS). RCBCNT  jAND EXPECTED COUNT 
3104 007552 022737 000002 003342 CMP sy TESTS * IF TEST 9 
105 007560 001404 BEQ jtates DO NOT SEND XON 
106 007562 012700 007426 MOV #EXON,RO 
10 Reet IME CRITICAL 
108 0075 004737 907102 CALL SNDBYT teeeSEND IT 
109 00757 916500 104 1$: MOV PKPTR(RS) ,RO j ses DWHERE 1ST BYTE GOES 
3110 007576 004737 01034 CALL GTBYT paeeGEl 
111 007602 032715 BIT #B81T15,aR5 ABORT Es 
11 007606 001404 BEQ *NO=CONT INUE 
113 00761 10506 33 CLRB XSPKNM+1(R5) SYES=NO | MORE PACKETS EXPECTED 
114 007614 137 010104 JMP GTDOWN :0N 
115 007 3300 4$: DEC RO iO BYTE JUST RECEIVED 
116 007622 1110 00330 MOVB  @RO,SYSTAT*+1 SAVE 
117 007 6 121037 003314 CMPB = @RO.RCFLG *1S IT WHAT EXPECTED? 
118 0076 14 BEQ GTOK YES 
119 007634 105 33 UNXPCT: CLRB §_XSPKNM+1(R5) NO, MUST BE LAST ,REPLY 
120 007640 121027 2 CMPB = @RO, ARSEND [MAYBE AN END P. 
121 007644 001 BNE NO 
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GTPKSS / GET RESPONSES ( SEQ 0054 
1 2 007646 012737 000016 003316 MOV WRSNDSZ,RCBCNT ;YES, USE PROPER COUNT 
123 007654 BR SAND GET 
124 007656 121027 000001 4$: C4PB = @RO, ARSDATA t1S IT DAT 
125 007662 i119 BNE GTDOWN ‘NO ALL OVER, CHKANS Wit INIT UNIT 
126 007664 O1273 000222 003316 MOV #RSDNSZ,RCBCNT 3¥ES, U E COUNT OF + END PAK SURE TO FOLLOW 
127 007672 00 200 GTUM: INC RO WHERES 4 STUFF THE OaEST 
2128 007674 005337 003316 $: DEC RCBCNT ONE DOWN 
2129 007700 001501 BEQ GTDOWN :NONE TO GO 
2130 007702 004737 010346 CALL GTB mE :MORE TO GO 
2131 007706 032715 100000 BIT #B1T15,aR5 TIMEOUT? 
e132 007712 001074 BNE YES 
2133 007714 005765 000074 TST DLV(R5) “BUT DLV ERROR? 
2134 007720 001765 BEQ NO 
2135 007722 105065 000033 CLRB § XSPKNM+1(R5) =: YES“LAST TIME 
3136 007726 000466 BR GTDOWN [0N TO NEXT 
Si 007730 005200 GTOK: INC RO sNEXT PLACE IN BUFFER 
2140 rn at ah ae ee, a 
2141 007732 022737 000002 003342 is: CMP #2.7 seat REV.- IF, NOT TEST 9 
2142 007740 001022 BNE 7$ eee REV.= THEN, NO MRSP HANDSHAKING REQUIRED 
2143 007742 PUSH RO thee REV.- ELSE, TEST MRSP HANDSHAKE. 
007742 010046 MOV RO,-(SPS 
2144 007744 012737 000002 010254 MOV #2,MRSDLY yee REV.= DELAY FOR WAIT LOOP 
2145 zee REV.= THIS IS THE BEGINNING DELAY LOOP 
2146 007752 005000 2$: CLR RO pee REV. 
2147 007754 005300 3$: DEC RO teee REV. 
2148 007756 001376 BNE 3$ ieee REV.- 
2149 007760 005337 010254 DEC MRSDLY ieee REV.= 
3130 007764 001372 BNE 2$ ieee REV.- THIS IS THE END OF DELAY LOOP 
abr 007766 105775 000022 TSTB = @RCSR(RS) peat REV.= DONE $ 
2153 007772 001066 BNE ERRMOD ieee REV.= THEN, ar S 3 TERROR BECAUSE 
2154 ieee REV.- THERE WAS NO MRSP HANDSHAKE. 
2155 007774 012700 010252 MOV #MODRSP RO peee REV.~ ELSE, SEEMS TO BE OK, LETS. 
2156 010000 004737 007102 CALL  SNDBYT tees REV. SEND A CONTINUE 
2157 010004 POP RO Sane REV.- SEE IF HANDSHAKE WORKS. 
010004 012600 MOV (SP)+,RO 
2158 © ERR RARERERARERAREEREKEEEERAERAERARERERAEERERREREAEAEEEAAEAEREREARAEEERERERREEE 
2159 010006 005337 003316 $: DEC RCBCNT MORE BYTES? 
3160 010012 1413 BEQ 4s. SNO-ALL DONE 
161 010014 737 010346 CALL TE SYes-GET IT 
Z16¢ 100 2715 100000 BIT gatry ars : TIMEOU 
163 010024 001027 BNE GTDOWN YES 
164 0100 5765 000074 TST DLV(RS) * ERROR? 
165 0100 1737 BEQ NO 
166 10034 105065 000033 CLRB § XSPKNM+1(R5) §:LAST TIME 
167 01004 9004 1 BR TDOWN “EX 
168 01004 775 000001 000104 4$: CMPB = #RSDATA, @PKPTR(RS) WAS DATA? 
169 01005 001015 BNE TDOWN : DONE 
170 010052 010065 000104 MOV RO,PKPTR(RS) | :START OF NEXT PACK NEXT TIME 
171 jAanaeannreennnersieeererettenentanereenaneraanenentensereeereneerens 
i7 010056 020737 000002 003342 CMP "2 TEST pees REV. IF, TEST 9 
173 010064 001003 BNE 20$ tees REV.- ELSE, 
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GTPKS® / GET RESPONSES ( SEQ 0055 
174 010066 005765 000210 TST MRSP(RS) y#ee REV.= ANDIF, MRSP 
175 010072 001004 E GTDOWN tee REV.= THEN, NO HANDSHAKE 
176 RERRRERRERERERRRREREEREREERERERERERRERRAREREERERERERERERREREERERRERE 
177 010074 012700 007427 0$: MOV HEXOFF., RO :XOFF AND END TO 
178 910100 0047 71 CALL § SNDBYT “ENHANCE THROUGHP UT 
179 010104 765 90 000106 GTDOWN: ADD #2..XSPTR(RS) | :NEXT XSFLG FOR NEXT TRY 
180 91011 0 727 (01 003366 CMP pomercee ;DONE ONE CYCLE ALL UNITS? 
18 Oi013 be ; 9002 010344 ADD GTPTR [NEXT UNIT 
183 101 9001 7 00746 JMP CFACIN [CONTINUE RECEIVE 
184 010134 105737 010342 1$: TSTB © SERVST SDONE SERVICING ALL PAKS 
185 [FROM ALL UNITS? 
186 010140 00140 BEQ ENDGP: YES 
187 O10142 000137 007430 JMP GTPKS =NO, KEEP TRYING 
188 10146 000207 ENDGP8: RETURN RETURN 
3190 010150 000240 ERRMOD: NOP pees REV.= MRSP ERROR 
191 01015¢ PRINTF #MESMRS,UNITNO 
010152 013746 027366 MOV UNITNO,=(SP) 
010156 012746 010200 MOV #MESMRS,-(SP) 
010162 012746 000002 MOV #2,-(SP5 
010166 010600 MOV SP,RO 
010170 104417 TRAP  CSPNTF 
010172 062706 000006 ADD #6,SP 
2192 010176 000207 RETURN 
194 010200 045 116 045 MESMRS: “ASCII 'YNZS9ZS2%01XS9ZS9ZAERROR IN MRSP PROTOCOL! 
2196 010252 020 MODRSP: .BYTE RSCONT 
2197 “EVEN 
2198 010254 000000 MRSDLY: .WOR 


ra 






GLOBAL AREAS 
SETSRV / SET UNIT SERVICED 


2212 010262 011505 
2213 010264 042705 177770 
2214 010270 012700 010322 
2215 010274 5705 
2216 giders 001404 
2217 010300 062700 000002 
2218 010304 005305 
2219 010306 000772 
$sst 010310 041037 010342 
221 010314 
010314 012600 
2222 010316 


010316 012605 
3ee3 010320 000207 


-SBTTL SETSRV / SET UNIT SERVICED 


++ 


SETSRV = RES 
S = SERVST 


* = UNIT 
; OUTPUTS = SERVST MOD 


+ INPUT 


SETSRV: 


1$: 


2$: 


SRVTBL: 


GTPTR: 


SERVST: 
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PUSH 


PUSH 


ET THE B 
Ss 


RS 


RO 


ars,R5 
#177770,R5 
#SRVTBL RO 


es 
#2,R0 
R5 


1$ 
@RO,SERVST 
RO 


RS 











SEQ 0056 


tf CORRESPONDING TO THE UNIT NUMBER. 
0, 1, 2) 


“oo - 


-SET UNIT SERVICED 
Mov RS,-(SP) 


MOV RO,-(SP) 


GET STAT WD 

sMASK UNIT # 
3~>TOP OF BIT TABLE 
sRIGHT ONE? 


MOV (SP)+,RO 


MOV (SP)+,R5 
3RETURN 
3BIT POSITION LOOKUP TABLE 


ram 


rorrrrnrn ~< 
RRR Roses 
DRG HOSS 
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gsssss=ssses8 
SESE ST ISaSS 
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GTBYTE:: CLR 
MO 


sCODE TO SEE “C 
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PREP 
ONE 


RO IS 


DLV (R5) NON-ZERO ON INTERFACE ERROR. 
TIME OUT ON RECEIVE 


-SBTTL GTBYTE / GET A BYTE FROM UNIT 


NCREMENTED 


GBTMP 
CSRCVB,R4 
@RCSR(R5S) 


$ 
@RCDB(R5S), 
DLV(RS), (RO) 
DLV(R5) 


4 
DLV(R5) 
$ 


GBTMP 
1 


RO, GBTMP2 


ptt ed RO 
@RCSR(RS) 
5$ 


GBTMP 


GBTMP2,RO “REST 
@RCDB(RS) ,DLV(RSS 
DLV(RS), (RO)+ 
DLV(RS5) 


GBTMP 
6$ 


#EXON,RO 
SNDBYf 
TMP2 RO 


CCUR 
ARA OR K ("BREAK* 
TO SEE IF A CHARACTER SLOPS OVER D 
DOES THEN MIGHT AS WELL GET IT 
THE REST OF THE MESSAGE, OTHE 
*XON', AND TEST FOR LONG T 
LOG ERROR 
REMEMBER TO PRESERVE R 
RO POINTS TO INPUT BUFFER 
IMPLIED UNITS DATA BLOCK 
CSRCVB TIME OUT MULTIPLIER 


DLV(RSS 
Pa 


ae 

GTBYTE = TEST INTERFACE FOR "READY-TO-RECEIVE’ AND INPUT A BYTE 
s IF _NOT, THE FOLLOWING : 

TION FOR “C_CHEC 


RWISE, 


IMEOUT (A 


sTIMECJT REGISTER 
a ERROR CONSTANT (MULTIPLIER) 


:GET ERROR + BYTE 

COBY BYTE TO BUFFER 

XIT 

ESET 

SAND EXIT 

“DEC T.0. CONSTANT 

SSTILL VALI 

DURING LONG SEEK OR REWIND 
;HERE GBTMP=0 

[RO MUST BE PRESERVED! 

SQUIET THE DEVICE 

*BY SENDING XOFF 

[CHARACTER SLOP OVER? 


7¥ 
sNO-WAIT A WHILE 
DONE WAITING? 


[NO 

TYES-NO SLOP OVER 

: START DEVICE TALKING 
RESTORE RO 
: LUG 


: ? 
7 YES~EXIT 


:__SEND ‘XOFF* TO UNIT I 
TO SUP IT 


ee THEN SEND 

TEST FOR L 30 SECOND REWIND). IF SO, 
OTHERWISE REPEAT THE ABOVE UNTIL READY OR TIME 
SINCE THE ‘BREAK’ TRAP CLOBBERS IT. 





SEQ 0057 


rn 
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GLOBAL AREAS 
GTBYTE / GET A BYTE FROM UNIT 
10520 005065 000074 
5 0103 & 
ieee Hoty guess 
ies Hee args 
1054 137 10574 
10546 1 
1 010550 aiea hd 010572 
010554 005 
30 318828 pole r? 
304 010560 012704 50 
44 019296 004737 012634 
10570 000207 
2307 010572 000000 
2308 010574 000000 


17$: 


7$: 





ee sNO-CLEAR 
1 GEXIT 
RO, GBTMP2 zAGAIN SAVE RO 
#EXON,RO SRESTORE TO TALKING STATE 
SNDBY ‘BY SENDING *XON’ 
GBTMP2,RO sRESTORE RO 
4$ DONE 

GBTMP 

a 3s TIMEOUT? 
#TORCVB RS sYES 

LOG 3;LOG ERROR. 

RETURN 
0 
0 


SEQ 0058 


@ 
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ANS / CHECK DEVICE(S) RESPONSE SEQ 0059 
i .SBTTL CHKANS / CHECK DEVICE(S) RESPONSE 
1 ++ 
14 > CHKANS = AS IN 'GETANS’, IF RETRYING DO ONLY 1 UNIT ELSE DO ALL ‘YON- 
15 : ABORTED UNITS. NOTE, IF IN TEST 9 AND THE UNIT IS NOT 
1 : MODIFIED DO NOT CHECK UNIT. 
1 : INPUTS: IMPLIED SYSTAT BIT1 (RETRYING) 
18 ; BLKTBL = TOP OF DATA BLOCK ALLOCATION TABLE 
1 ; LSTDEV = ADDR. OF LAST UNIT'S DATA BLOCK 
: : OUTPUTS: NONE PASSED. 
4 010576 000240 CHKANS:: NOP sIF RETRY THEN CHECK ONE 
5 “ELSE CHECK ALL 
$ 010600 032737 000006 003306 BIT #81T1!B1T2,SYSTAT -RETRYING? 
010606 001403 BEQ CHK8 : 
010610 004737 010706 CALL  CHKPKS :YES DO SINGLE UNIT 
$30 010614 000432 BR CHKANR TALL 
3332 010616 012737 003350 010704 CHK8: MOV #BLKTBL,CHKPTR ;YOU KNOW ... TOP OF TABLE 
2 010624 017705 000054 2$: MOV @CHKPTR.RS [GET UNIT'S BLOCK ADDRESS 
2334 010630 032715 100000 BIT #81T15,aR5 S ABORTED? 
33 5 10654 901012 BNE 3 YES 
336 01 02073 000002 003342 CMP #2, TEST sesane 1S THIS TEST 9 
2337 010644 001 BNE 1$ teeeee NO-CONTINUE NORMALLY 
2338 010646 022765 000000 000210 CMP #0,.MRSP(RS) teeeee IF SO, IS THIS UNIT MODIFIED 
2339 010654 00140 BEQ $ teeeee NO SKIP NEXT INSTR 
2340 010656 904 010706 1$: CALL § CHKPKS :NO, DO THIS GUY 
2341 010662 0257 7 010704 003366 3S: COP CHKPTR ,ALSTDEV zALL DONE? 
$308 010672 062737 000002 010704 ADD #2, CHKPTR [NO,-=>"'EXT DEVICE 
g348 010 000751 BR 2$ :D0 
o346 010702 000207 CHKANR: RETURN 
2348 010704 000000 CHKPTR: .WORD 
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MIMIKOROROPoTUNoTNoN 
ores 
1A) ad td et 
ad aed od 
a= 


—s 


SSSSRSEESES 


oo ooooo 


SEESRSRSSRSESON SERS 


a 


en 
» 
“ 


— 
Rosca = 


ue 


s 
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000001 003342 


END PACK 
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~SBTTL CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / 


ARED. IF 








+ 
CHKPKS = FOR UNIT RS AND FOR ALL PACKETS, CHECK TO SEE IF PACKET IS DATA OR 
Stop CHECK ¢ HECK a(x COMPARE 


DATA IF ae rece 


PACKET TYPE KfoR INTERFACE 
HROUGH IF lini f"* SE 


Ot Loe" “UTTAR 4=ERROR NUMBER if TERROR, 
ROUTINE IS ALSO. ys . TO DETERMINE THE nen tase OF A UNIT. IN 


A GET CHARACTERIST ICS COMMAND PACKET WAS 
F THe RESPONSE WAS A DATA PACKET, WHICH IS 
‘ THE MRSP FLAG IS 


TO Tf 
XPECTED, "WEN. THE UNIT IS NOT MODIFI AND 
THE RESPONSE 7m AN END PACKET, WHICH WOULD BE 
LED BY THIS ROUTINE AS AN UNKNOWN, THEN THE UNIT IS MODIFIED, 
AND MR AG IS SET. 
(IMPLIED) UNITS DATA BLOCK 


= ERRORS ~ = DLV ERROR 


UNKNOWN FLAG BYTE ERROR 
. = CHECKSUM ERROR 
= DATA COMPARE ERROR 


RO <PKPTR(RS) 


ard, SYSTAT#1 
1-;RCBCNT 
*RCFLG 


@RO,ARSCONT 
7$ 


RCBCNT .R4 
=(R4) 
- ar 
#BDCHK ,R4 
0G 


$ 
#RSEND , (RO) 
3$ 


CHKEND 
#1,R2 


#RSDATA,@RO 
#1,TEST9 


R4 = ERROR NUMBER 
SYSTAT UPPER BYTE = 1ST BYTE OF RESPONSE 


CHECK WHAT WAS RECIEVED 
7CLEAR "BAD FLAG’ RETRY BIT 
7GET BUFFER 
AND # OF PACKETS EXPECTED 
sTHE OFFSET 
itopy TOR UNIT XSFLG AGAIN 


Y 
fb gs a FOR 1ST PACKET 
:POINT TO PACKET 

SAVE RCV'D BYTE 

T COUNT 


1ST BYTE=EXPECTED? 


OH.. 
30K 18 iT 1 BYTE? 
VES. ONTO NEXT 
>1 pve (NEVER EXPECT INIT!) 
SEXPECTED ST 


ADJUST “FhOR RECEIVE COUNT 10 COUNT FOR CHECKSUM 
CHECK CHECKSUM 
7NO_CARRY...NO INCORRECT 


sER 
3L06 IT 
SEND P 


mS a PACK 


3 YES-CHECK 


SLAST PACKET 
SAND FALL 
SDATA PAK? 
Seeeee 1S THIS TEST 9 
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CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / SEQ 0061 
08 011054 1003 BNE 11$ teen NO-CONTTINUE NORMALLY 
409 01105 5 000210 CLR MRSPCRS) teeeee CLR MRSP FLAG 
410 011 g BR 12 yeeeee SKIP INSTR 
11 011 737 014550 11$: CALL OMPAR SYES=CHECK DATA 
41 110 9 4 12$: BR $ TALL DONE? 
413 011072 052715 920010 4$: BIS #BIT3!BIT13,aR5 :SET "BAD FLAG’ RETRY FLAGS 
414 11076 91 704 1 MOV TL RS SOUT TO L 
15 01110 768 74 TST DLV (RS) tAH,BUT DLV ERROR? 
416 011106 001402 BEQ 2 NO 
417 011110 012704 909012 MOV #OVRN,R4 TYES“USE CORRECT ERROR # 
18 011114 004737 012634 208: CALL L0G TALLY 
419 011120 000467 BR ‘DONE 
$13 sHERE CHECKS UNEXPECTED RESPONSE 
438 011122 122710 000004 5$: CMPB ss #RSINIT,a@RO ZINIT? 
24 4 011126 001007 BNE NO 
425 011130 052715 020010 BIS #BIT3!BIT13,aR5 :YES-SET RETRY FLAGS 
34 011134 012704 MOV #RCINIT RG : WE GOT AN INIT 
7 011140 737 012634 CALL TALLY IT 
2428 011144 55 BR $ : 
24 011146 1 2710 000001 6$: CMPB = #RSDATA, aRO :DATA PAK? 
2430 011152 00101 BNE NO 
2431 011154 012704 000204 MOV #RSDASZ RG YES, USE DATA SIZE 
2432 011160 005744 TST =(R4) SADJUST FOR CHKSUM 
365 011162 004737 013750 CALL _CKCKSM SAND CHECK 
434 011166 103430 BCS 10$ ; 
2435 011170 004737 014550 CALL COMPAR [0K, HOW'S THE DATA? 
2436 SEXPECTED END, GOT 
437 SDATA + END. 
438 011174 062700 000204 ADD #RSDASZ RO [POINT TO END PACK 
3439 011200 000657 BR 1$ *CHECK IT, USE SAME XSFLG 
441 011202 122710 000002 9$ CMPB = #RSEND, (RO) END? 
44g 011 001331 BNE *NO-OUT TO LUNCH 
443 01121 012704 000016 MOV #RSSNSZ RG YES, TOTAL SIZE MINUS 
ae 011214 005744 TST -(R4) TWO (THE CHKSUM) 
2445 011 1g 004737 013750 CALL CKCKSM : 
446 01122 10341 BCS ; 
447 011 3 022737 000001 003342 CMP #1, TEST teeeee IS THIS TEST 9 
448 011 1003 BNE 13$ teeeee NO-CONTINUE NORMALLY 
2449 011234 012765 000001 000210 MOV #1, MRSP(RS) teases IF SO, SET THE MRSP FLAG 
$31 011242 004737 011302 13$: CALL = CHKEND [0K,NOW TEST SUC. CODE 
43¢ 011246 000414 BR at ZALL DONE 
siez 011250 012704 000022 10$: MOV WED CHK ,R4 : CHECKSUM ERROR 
455 011254 737 0126 CALL LOG 
436 011260 07 BR 8$ EXIT 
458 011 530 7$: DEC R2 ZANY PACKETS LEFT TO CHECK? 
459 011264 00140 BEQ 8$ [NO, ALL 
460 011 66 003316 ADD RCBCNT RO YES, POINT TO NEXT PACKET 
461 011 3 121 CMP (R1)+,(R1)+ *POINT TO NEXT EXPECTED COUNT 
462 011276 CMP (R3)+,(R3)+ SAND EXPECTED FLAG 
463 01127 BR 1$ [TRY ANOTHER, THEY'RE SMALL 
464 011 207 8$: RETURN RETURN 
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CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 





2467 .SBTTL CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 

2469 304 

470  CHKEND = IF RETRYING;DETERMINE IF DATA ERROR OR BAD.FLAG BYTE ERROR RETRY. 

47 : IF RETRYING BAD FLAG:RESET RETRY FLAG(SINCE OPERATION IS COMPLETE), 

47 : AND CHECK SUCCESS CODE. 

474 : IF RETRYING DATA ERROR ; CHECK SUCCESS CODE AND | IF 0 PRINT RECOVERED, LOG 

475 : OFT ERROR. END RETRY STATUS. IF NOT 0 AND STILL 

476 : HECK "ERROR = ETERMIN NE WHETHER TO CONTINUE WANOTHER RerAy OR 

shi? : LOG NUNRECOVERABLE™ 

2479 : IF NOT RETRYING DATA ERR CHECK IF "DATA CHECK" ERROR SUCCESS CODE, 

2480 : AND IF SO,START RETRY, EL Pee ex 

2481 : INPUTS: IMPLIED UNITS DATA BLOCK 

2482 3 OUTPUTS: RETRY (SYSTAT BIT 1AND 2) (BIT10, @R5) RESET IF RETRYING. 

2483 3 DATA COMARE ERROR (BIT6 aR5) 

3484 : = REDUCED/NORMAL GAIN (BIT? @R5) ADJUSTED 

2486 

2487 011302 000240 CHKEND:: NOP 

2488 011304 PUSH RO :RO <=> END PAK 
011304 010046 MOV RO,-(SP) 

2489 011306 PUSH R4 
011306 010446 MoV R4,-(SP) 

2490 011310 032737 000006 003306 1$: BIT #B1T1!BIT2.SYSTAT :RETRYING? 

2491 011316 001406 BEQ NOREE zNO=CHECK LLY 

2492 011320 032737 000004 003306 BIT #BI1T2,SYSTAT  :1S IT BAD FLAG TYPE? 

2493 011326 001454 BEQ c NO (DATA TYPE) 

2494 011330 042715 020000 BIC #81T13,aR5 YES, SO IF END PACK THEN RETRY'S COMPLETE 

2495 011334 004737 012320 NOREE: CALL CHK SUC SCHECK SUCCESS CODE 

2496 011340 032715 100000 BIT #B1T15,aR5 * ABORTED? 

2497 011344 00140 BEQ 3$ NO, CONTINUE 

2498 011346 00013 012024 JMP CHKRET YES EXIT 

2499 011352 105765 7 3$: TSTB © SUCCS+1(R5) [NO; HOW'D WE DO? 

2500 011356 001013 BNE CHKERR ‘NOT SO GOOD. 

2501 011360 032715 000100 BIT #8116, aR5S £0K, HOST FIND DATA PAK ERROR? 

302 011364 001002 BNE 2s 3vES 

503 011366 000137 012024 JMP CHKRET 

3304 0113/2 012704 14 2s: MOV #BDCOM,R4 ‘YES; JUST BAD DATA-NO DATACHK ERR 

505 011376 004737 012634 CALL LOG 3BAD'DATA IN PACKET 

506 911402 137 012024 JMP CHKRET : 

507 11406 032715 001000 CHKERR: BIT #B1T9,aR5 3BAD SUCCESS; TU DATA CHK ERROR? 

3508 O1141 901002 BNE 1$ 3 

509 011414 1 012024 JMP CHKRET 3NO. ALL DONE. 

510 0114 32718 1$: Bis #eiT 0,aR5 SYES-START RETRY 

511 011424 012765 000001 000002 ETRY(RS) — CALL IT 1ST 

512 0114 PRINTX oRintn RETRY(RS) :** PRINT * 
011432 016546 909002 MOV RETRY (RS) -(SP) 
011456 12746 01 204 MOV (§P) 
O114e6 910600 . MOV ie. aC (SB) 
oree0 hae TRAP SSPRTX 


ca 


GLOBAL ARE 
CHKEND / C 

11452 
2513 011486 
514 011460 
515 011464 
516 011470 
517 piers 
01147 
011476 
011502 
011506 
011510 
011512 

2518 011516 
2519 011520 
2520 011522 
011522 
011526 
011532 
011534 
011536 

2521 011542 
2522 011544 
011544 
011550 
071554 
011556 
011560 
2523 011564 
2524 011570 
2525 011572 
2526 011576 
2527 011600 
2528 011604 
2529 011610 
2550 011614 
2531 011620 
2532 

2533 011622 
2534 011624 
2535 011630 
2536 011632 
011632 
011636 
011642 
011644 
011666 
$337 11652 
538 011656 
2539 011662 
540 011664 
547 011672 
266 011674 
543 011700 
011700 
011704 
011710 
011714 


AS MACRO M1113 _25-FEB-82 07:06 PAGE 68-1 
HECK SUCCESS AND DETERMINE RETRY STATUS / 


Soest 
“ul ~m 
Sore 
FARE 


S 


NNW 
Sa 
AAO 


=—Coo°o 
peer peer per Par} 
oNxe 

— 

w 


-_—— 
oO 


gscee 
Ne 
Sa 


ee=x Sa 
= 
& ~nN 
—_— a 
& We 


Seteree 
EAE SHsssss 


oooo 


& 
S 


“ 
= 


001000 


012246 
000001 


000004 
000002 
002200 
003330 


000002 


012204 
000002 


BR 
CHKREE: CALL 
TSTB 


2$: 


3$: 


4$: 
5$: 


UNSUC: 


000002 2$: 


BNE 
PRINTX 


TSTB 
BMI 
PRINTX 


BR 
PRINTX 


NOP 
B 


MP 
BEQ 

NC 
PRINTX 


CHKRET sALL_ DONE 

CHKSUC sCHECK SUCCESS CODE 

SUCCS+1(R5) 3 SUCCESSFUL YET? 

UNSU 3NO, CHECK COUNT 

WRECOV,RETRY(RS) 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

(R5) DETERMINE THRESHOLD 

31T'S MODIFIED 

#THRSLO 3 NORMAL 
MOV 
MOV 
MOV 
TRAP 
ADD 

3$ 

#THRSHI 3 ENHANCED 
MOV 
MOV 
MOV 
TRAP 
ADD 

#81T8,aR5 ae OR READ OPERATION? 

#SFTRD ,R4 zREAD 

1 “aeeaeay sWRITE 

RETRY(R5) sRESTORE TO NORMAL STATE 

#B1T10!BIT7,@R5 ;NO RETRY, NORM THRESHOLD 

CHKRET sQUIT 

sRETRYING; SEE IF HARD YET 

~ ‘hina 3TU DATA CHECK ERROR? 

#MRETERR 3NO~"‘OTHER~ERROR"’ ERROR noe 
MOV 
MOV 
TRAP 
ADD 


RETRY(RS) sNO RETRIES 
#BITIO!BIT7,@R5 ;NO RETRY, NORM THRESHOLD 


CHKRET 3 EX 
SATAY AE TRY ERS) sYES. DID WE GRADUATE TO HARD? 


RETRY (RS) ‘NO. JUST ANOTHER 
#RTRYN,RETRY(R5) ;PRINT OUT 





RETRY(RS) ,=(SP) 
#RECOV,=(SP) 
#2,-(SP) 


tA 


CSPNTX 
#6,SP 


#THRSLO,-(SP) 
#1,-(SP) 


SP; RO 
CSPNTX 
#4,SP 


#THRSHI ,-(SP) 
#1,-(SP5 


#RETERR,-(SP) 
#1,-(SP5 


RETRY(R5S),-(SP) 
#RTRYN, -(SP) 
#2,~(SP) 

SP.-RO 


ono 
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CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / SEQ 0064 

011716 104415 TRAP — C$PNTX 
011720 066706 000006 ADD #6,SP 

2544 011724 032715 000200 BIT #B1T7,aR5 :WAS NORMAL THRESHOLD? 

545 0117 001405 BEQ 1$ TYES-REDUCE GAIN 

546 011732 042715 000200 BIC #B1T7,aR5 *NO=NORM 

2547 011736 000432 BR f 

2548 011740 052715 000200 1$: BIS #B1T7,aR5 ;REDUCED 

2549 011744 000427 BR CHKRET DON 

3550 011746 000240 HRD1: NOP THERE IS HARD ERROR! 

2551 011750 PRINTX #UNREC 
011750 012746 012224 MOV HUNREC ,-(SP) 
011754 012746 000001 MOV #1,-(SP) 
011760 010600 - MOV ¥ 
011762 104415 TRAP 
011764 062706 000004 ADD #4,SP 

2552 011770 032715 000400 BIT #B1T8,aR5 :RD OR WR? 

2553 011774 001003 BNE WRITE 

2554 011776 012704 000016 MOV HHRDRD ,R4 SREAD 

2555 012002 000402 BR [LOG IT 

2556 012004 012704 000020 4$: MOV WHRDWR RG WRITE 

2557 012010 004737 012634 5$: CALL LOG :LOG IT 

2558 012014 005065 000002 CLR RETRY(RS) sBACK TO NORMAL 

3359 012020 042715 002200 BIC #BIT10!B1T7,@R5 :NO RETRY, NOT REDUCED 

2561 012024 042737 000006 003306 CHKRET: BIC #BIT1!BIT2,SYSTAT zNO SYSTEM RETRY NEXT PASS 

2562 012032 042715 000100 BIC #B1T6,aR5 sNO MORE HOST DATA CHECK ERROR 

2563 012036 POP 
012036 012604 MOV (SP)+,R4 

2564 012040 POP RO 
012040 012600 MOV (SP)+,RO 

2565 012042 000207 RETURN 

2566 

2567 


$308 012044 af 101 122 RECOV: were /%ARECOVERED FROM DATA CHECK ERROR RETRY # 2D12N/ 
so00 012124 04% 101 040 THRSLO: ren /%A NORMAL THRESHOLD2N/ 

2572 012152 = 045 101 040 THRSHI: ry /%A MODIFIED THRESHOLD %N/ 

2574 012204 045 101 122 RTRYN: ry /ZARETRY # 2D12N/ 

2576 012224 045 101 125 UNREC: .ASCIZ /ZAUNRECOVERABLEZN/ 


2577 -EVEN 
$258 012246 045 101 117 RETERR: “pean /%AOTHER ERROR DURING RETRY : EXIT RETRYZN/ 
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CHKSUC / INTERPRET SUCCESS CODE / 


se -SBTTL CHKSUC / INTERPRET SUCCESS CODE / 


SEQ 0065 


: S CuKsuc - COPY press one (BYTE) TO SUCCS+1(R5). INTERPRET SUCCESS 
; AND IF OG APPROPRIATE ERROR. 

3 INPUTS: RO POINTS TO. END PACKET. 

: IT STATUS WOR 


CMDSNT (R5) = COMMAND BYT 


Morrone 
pate 
SSELEEE 


1 : OUTPUTS: R4 IS ERROR NUMBER IF ERROR. 
$098 : SUCCS(R5) UPDA 
$2o2 airs ars SET On DATA CHECK SUCCESS CODE 
2595 
2596 012320 000240 CHKSUC:: NOP 
2597 012322 016065 000002 000076 MOV 2(R0), “sy UCCS(R5) ;RO==>END PACKET 
2598 012330 122760 000000 000003 CMPB (RO) :GET SUCCESS BYTE 
2599 012336 001535 BEQ 453 *COMPLETE SUCCESS-EXIT 
2601 01234 122760 000001 000003 CMPB #ESTRY,3(RO) 30K BUT RETRIES? 
2602 012346 001012 BNE 20$ “NO 
2603 012350 126527 000100 000002 CMPB = CMDSNT(RS) ,ARSSRD;:A READ? 
2604 012356 001001 BNE — 22$ NO 
012 000520 BR 10$ :NO RETRIES ull MAINTENANCE ! 
2607 012362 126527 000100 000003 22$: §§ CMPB § CMDSNT(RS) ~ARSSUR WRITE? 
2608 012370 001001 BNE 20$ 
- 2609 012372 000513 BR 10$ :LOG IT 
2610 012374 122760 177737 000003 20$:  CMPB § #ESNOMO,3(RO) ino MOTOR? 
2611 012402 001003 BNE 1 
2612 012404 012704 000030 MOV #NOMOT RS tYES- 
3615 012410 000506 BR 11$ :L0G 
2615 012412 122760 177757 000003 1S: CMPB = HESCKS,3(RO) —; "DATA CHECK"’ ERROR? 
2616 012420 001003 BNE 3NO 
2617 012422 052715 001000 BIS #B1T9,aRS 7SET DATA=CHK-ERROR FLAG 
3618 012426 000501 BR 12$ :DONT LOG 
$690 012430 126527 000100 000007 2s: CMPB = CMDSNT(RS),#RSSSLF ;SELF TEST? 
2621 012436 001006 BNE $ : 
2628 012440 105760 000003 TSTB (RO) ‘YES, NEG. IF ERROR 
3605 012444 10007, BPL 12$ 30K 
25 01244 12704 000044 MOV #SLFER,R4 : YES-ERROR 
36 1245 Ohecus BR 11$ :L0G IT 
$05s 012454 122760 177740 000003 3$: CMPB Ss WESSK,,3(RO) ZSEEK ERROR? 
3669 oi 462 001005 BNE 4$ NO 
124 12704 900024 MOV ASKERR,R4 :YES= 
31 01246 5 705 BIS #B1T14.R5 [SET "DOBRK’ FLAG 
i 0124674 4 BR 3LOG 
12476 122760 177767 000003 4$: CMPB #ESNCRT, o3(RO) — ;NO CART? 
635 012504 Oui BNE 
125 1 000054 MOV ANCART R4 tYES- 
3 1251 5 BR 11$ [LOG 


EAS 
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GLOBAL AREA 
CHKSUC / INTERPRET SUCCESS CODE / 


39 


rs 
o 


: 


RRERRERER 


nm 
rs 
Co orvorv 


Mrmr 
nO 
wiIiV 


ptt 
eee FS 


MIN 

AO 
VWI 
OWNAUSWN—O 


i] 
Sy 


177720 
000040 


177770 
000036 


177765 
000026 


177776 
000034 


177711 
000042 


000046 
012634 


000003 


000003 


000003 


000003 


000003 


5$: 


6$: 


7$: 


9$: 


—— 
Nm—o 
AAM 


1 eae aaa 
#CMNDER ,R4 
11$ 


#ESNONX ,3(RO) 
7$ 


ANOUNIT ,R4 
11$ 


MESWLOC ,3(RO) 
#MWRLOCK ,R4 
11$ 


#ESPART ,3(RO) 
#PARTL .R4 
11$ 
#ESREC,3(RO) 
#RECERR,R4 
11$ 


MSUCCTLR4 
LOG 


a UNDERSTAND HOST? 


YES= 
LOG 


3NON EXISTENT UNIT? 
NO 


YES= 
LOG 
;WRITE LOCKED? 


oo OP? 


3N 
3s YES- 
sl06 


_ RECORD? 


3 UNDEF INED 
3LOG ERROR 
RETURN 


SEQ 0066 


Com 
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LOG / TO LOG ERROR IN CORRECT PLAC SEQ 0067 


— 
ee ae 
NruoO— 


YS 
enV 


EMP 
MOV Sistas R3 3GET INDEX AGAIN 
ADRS OF MSG 


#RSNT 
AEADKCRS) R1 LIKE THIS 

S INSURE WORD BOUNDARY 
016752 BIT #EVLFLGLOC SEVL SELECTED? 

8 LOGOK2 *NO=CONT 


6 69 .SBTTL LOG / TO LOG ERROR IN CORRECT PLACE 
671 ;+ 
ie ; L0G = DETERMINE IF ERROR IS FATAL, NON-FATAL OR FATAL AFTER N TRIES 
67 : By INDEX (ERROR #) INTO DEVICE DATA BLOCK. ADD THE DRIVE # TO 
74 : IND ICA Te UPPER OR LOWER BYTE AND INCREMENT THAT ERROR UNLES 
75 : THAT BYTE WOULD OVERFLOW. EE TERMINE IF EVL FLAG SET,AND IF SO, 
76 : CHECK THRESHOLD CEVLTHR) AND PRINT APPROPRIATE ERROR MESSAGE 
77 : DESCRIPTION. ABORT THE UNIT IF INDICATED THROUGH DODROP CODE. 
2678 : INPUTS: R4 = ER 0D 
2679 ; OUTPUTS: ABNDK(RS) | = ERROR CODE. 
sent ; LSLUN = UNIT NUMBER 
ey 
2684 012634 LOG:: PUSH RO 
012634 010046 MOV RO,-(SP) 
2685 012636 PUSH R81 
012636 010146 MOV R1,-(SP) 
2686 012640 PUSH RB 
012640 010344 MOV R3,-(SP) 
2687 012642 PUSH R4 
012642 010446 MOV R4,-(SP) 
2688 
2689 012644 011537 902074 MOV Ls ot :GET UNIT NUMBER 
2690 012650 0427 7? 177770 002074 BIC a 7807 7 ts UN :MASK IT OFF 
2691 012656 010465 000004 MOV R4,ABNDK(R5) | :SAVE INDEX IN CASE OF ABORT MESSAGE 
3 012662 012703 000120 MOV MéorsT. x [OFFSET TO LOW ORDER BYTE (DRIVEO) 
93 012666 sett ADD R4,R : INDEX OF PARAM. TO UPDA 
94 01 670 0605 ADD RS.R [FORM ABSOLUTE ADDR. THIS UNIT 
95 012672 004737 013640 CALL § WHCHDR SSEE WHICH DRIVE T'WAS 
% 01 676 103001 acc 2$ :WAS DRIV VE A he 
97 01 00 520 INC R3 :DRIVE T TO UPPER BYTE 
98 012702 122713 000377 28: CMPB ss #255. @R3 SPOTENTIAL 0 OT ERFLOW POSSIBLE? 
99 0127 100 BNE LOGOK 
700 01271 LOGO: ERRDF » JOVRFLO,ERRDES’ YES 
012710 104455 TRAP  CSERDF 
712 .WORD 0 
714 01 "WORD OVRFLO 
716 0131 "WORD ERRDES 
51 yABORT UNIT 
10521 LOGOK: INCB PINCRERENT THE ERROR 
VB :T Y SAVE IT 
754 


—Woooo 


aja 
a 
o 





GLOBAL_AREAS 
LOG / TO LOG ERROR IN CORRECT PLACE 


75 lear 002222 
1 ior 
BN S88 





012774 104455 
012776 
01 Oi¢ & 
01 13170 
2715 01 
2716 01 120327 000014 
2717 013012 103011 
2718 013014 010337 013026 
2719 013020 011137 013030 
2720 013024 
013024 104457 
Sia fe 
013032 613176 
$76) 013034 000450 
2723 013036 120327 000026 
2724 013042 103411 
2725 013044 o1033s 013056 
2726 013050 011137 013060 
2727 Oreos 
013054 104456 
013056 000000 
013060 013054 
013062 013170 
es: 013064 000430 
27. 013068 042704 177400 
2731 013072 163704 003320 
sie 013076 001413 
2733 013100 103401 
siae 013102 000773 
2736 013104 010337 013116 
2737 013110 011137 013120 
2738 013114 
013114 104457 
013116 000000 
0131 Orsi 
013122 013170 
739 013124 14 
740 013126 010337 013140 
2741 ois] 011137 013142 
2742 013136 
013136 104456 
013140 
013142 0131 
743 013144 01317 
FG 013186 011308 
745 Bis 2700 177770 
746 013154 


DFTL1: 


LOGOK2: 


LOG1: 
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MOV 
ERRSOFT 


Bk 
CMPB 
BLO 
MOV 


MOV 
ERRHRD 


MOV 
MOV 
ERRSOFT 


BR 
MOV 
MOV 
ERRHRD 


C 
DODU 


sYES,OVER THRESHOLD? 


EVLTHR,R4 

R3,DFTIL1+2 SYES,LOAD ERROR # 
ari, DFTL1+4 SAND MESSAGE ADDR 
O.DFTL1,ERRDES :ERROR 


ABO :DROP IT 
R3,48DCOM "NEVER FATAL’ TYPE? 
NISFT NO 

R3,L0G1+#2 TYES, ERROR CODE 
ari,L0G1+4 :DESCRIPTION 
0.,LOG1,ERRDES 

LOGO sEXIT 

R3,#WRLOCK 3ONE TRY? 

MABEE :NO, MAYBE A MULTIPLE 
R3,L0G2+2. YES 

ari ,.oGe+4 

0,LOG2,ERRDES ;PRINT HARD MESSAGE 
ABO ;DROP UNIT 
#177400,R4 ZNEGATE SIGN EXTEND 
FTLNM,R& [SEE IF MULTIPLE OF 
HRD :FTLNM-YES! 

1$ [NOT THERE YET 
R3,L0G3+2 ZERROR COVE 

ari LOG3+4 *DESCRIPTION 
0,L063,ERRDES 

LOGO sEXIT 

BS LOG3B+2 SHARD ERROR CODE 

ari L0G +4 S DESCRIPTION 
0,L0G3B,ERRDES 

ans RO :GET UNIT NUMBER 
#177770,R0 SUN@SIGN EXTEND 

RO SUSE LOGICAL # TO DROP 


SERDF 


DFTL1 
ERRDES 


CSERSOFT 
0 


LOG1 
ERRDES 


CSERHRD 
0 


LOG2 
ERRDES 


CSERSOFT 
0 


LOG3 
ERRDES 


CSERHRD 
0 


LOG38 
ERRDES 


AREAS 
3 154 
2747 013156 
013156 
748 013160 
: $13160 
2749 01316 
01316 
2750 013164 
013164 


2751 013166 
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LOG / TO LOG ERROR IN CORRECT PLACE 


104451 
012604 


012603 


012601 


012600 
000207 


LOGO: 


POP 


POP 


POP 


POP 


RETURN 


R4 


R3 


R1 


RO 


: RESTORE 
Mov 


MOV (SP)+,R3 


(SP)+,R4 


MOV (SP)+,R1 


MOV (SP)+,RO 
;RETURN 


TRAP C$DODU 


SEQ 0069 
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LOG / TO LOG ERROR IN CORRECT PLACE SEQ 0070 

754 p44 

755 : ERRDES = CONTAINS CODE FOR EXTENDED ERROR INFORMATION: DRIVE #, 

2756 5 BLOCK #, ° 

see a 

2759 013170 BGNMSG ERRDES ZERROR DESCRIPTION 
aE EA ERRDES:: 

2760 013170 PUSH = RO 
013170 010046 MOV RO,-(SP) 

2761 013172 PUSH = R2 
013172 010246 MOV R2,-(SP) 

2762 013174 005002 CLR R2 :PRESET TO DATA TYPE 

2763 013176 032715 000020 BIT #B1T4,aR5 SWHAT PACK TYPE? 

2764 013202 001401 BEQ 2$ SDATA 

2765 013204 005202 INC R2 : 
013206 2$: PRINTB #UNIT,<B,DR(R5)>.R2,<B,SYSTAT+1> 
013206 005046 CLR -(SP) 
013210 153716 003307 BISB SYSTAT+1,(SP) 
013214 010246 MOV R2,-(SP) 
013216 005046 CLR - 
013220 156516 BISB  DR(RS),(SP) 
013224 012746 013362 MOV #UNIT,-(SP) 
013230 012746 MOV #4,-(5P) 
013234 010600 MOV SP,RO 
013236 104414 TRAP  C$PNTB 
013240 062706 000012 ADD #12,SP 

2767 013244 016500 MOV REC(RS) ,RO :RECORD NUMBER 

2768 013250 016502 000072 MOV PATTEN(R5S),.R2 _;DATA_EXPECTED 

2769 013254 PRINTB #RECID,RO,<B, CMDSNT (R5)>,<B,R2>,<B, SUCCS+#1(R5)> 
013254 005046 LR -(SP) 
013256 156516 000077 BISB § SUCCS+1(RS), (SP) 
013262 005046 CLR =(S 
013264 150216 BISB ——-R2, (SP) 
013266 009046 CLR -(§P) 
013270 156516 000100 BISB  CMDSNT(RS), (SP) 
013274 910046 MOV RO,-(SP) 
013276 012746 013442 MOV #RECID,-(SP) 
013302 012746 MOV #5,- 
013306 01 MOV SP 
013310 104414 TRAP  C$PNTB 
013312 0627 000014 ADD #14,SP 

2770 013316 005765 000074 TST LV(RS) :DLV ERROR? 

2771 013 001414 BEQ : 

2772 013324 PRINTB #RECID2,DLV(RS) ;YES-PRINT 
013324 on 546 909074 | MOV DLV(RS) ,-(SP) 
0133 12746 013616 MOV #RECID2,-(SP) 
013334 ot 746 000002 MOV #2,-(SPS 

\ 013340 010600 MOV SP-RO 

( BIRse  OeSr06 Trap shuts 

3773 013 50 $5806 aad CLR LVRS) :RESET 

774 013354 3$: R * RESTORE 
013354 012602 MOV (SP)+,R2 
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LOG / TO LOG ERROR IN CORRECT PLACE SEQ 0071 
2775 Oi see POP RO 
013356 012600 MOV (SP)+,RO 
2776 01 ENDMSG sEXIT 
01 L10003: 
01 104423 TRAP CSMSG 
3rre 01 045 101 104 UNIT:: ey /%ADRIVE# %01%A PAK SENT %01%A FLAG RCVD 203%N/ 
779 013442 045 101 102 RECID:: .ASCIZ /%ABLOCK# %04%A COMMAND 202%A EXPCTD %03%A SUCCESS %032N/ 


-EVEN 
781 013534 103 101 116 OVRFLO: rene /CAN'T UPDATE ERROR OR STATISTIC:OVERFLOW PENDING/ 
2783 013616 045 101 040 RECID2: -ASCIZ /%A RCDB WAS %06%N/ 
2784 ~EVEN 
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GLOBAL AREAS 
WHCHDR / SEE WHICH DRIVE IS ACTI SEQ 0072 


787 .SBTTL WHCHDR / SEE WHICH DRIVE IS ACTIVE 
rs 

790 INPUTS: DR(RS) 

291 ;_ OUT PUTS: CARRY=DRIVE (1 OR 0) 


79 
794 
73 013640 000241 WHCHDR:: CLC sCLEAR CARRY 
Re ot 2 105765 000060 TSTB DR(RS) ;DR 0? 
BEQ es sYES 
000361 SEC :NO 
233 8 


2801 013652 000207 2s: RETURN ;RETURN 








Pay 


oO 
Fd 


33 § 


~ 

=e 
> 

Se 


Rorronorny 
00.00 C9 C9 Co CO CO 
OuSWnN—o 


1 
2820 013672 
2821 013674 


8 
2823 013702 
2825 013704 


2840 
01 

2841 At ioe} 
744 


2842 013746 
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010346 
010246 
Ont a! 
032701 


001403 
052737 


000001 
000001 


000001 


000001 


177400 


THE PACKET CHECKSUM 


003306 


003306 


003306 


~SBTTL CHKSUM / FORM THE PACKET CHECKSUM 


; OUTPUTS: - 


CHKSUM:: PUSH 


1$: 
2$: 
3$: 


4$: 


PUSH 


RETURN 


:++ 
; THE CHECKSUM IS A 16 BIT CHECKSUM WITH END-AROUND CARRY. 
; INPUTS: * oe OF ait a. TOP OF PACKCT 


>» yy PUT CHECKSUM 


= CHECK 
R3 
R2 


#BITO,SYSTAT 
: 1T0,R1 
#B1T0,SYSTAT 
R1 

R3 

(RO)+,R3 

R3 

R1 

3$ 
#BITO,SYSTAT 


(RO) + 
oe eke R2 
R2,R3 


R3,R1 
Re 


R3 


MOV R3,-(SP) 


MOV R2,-(SP) 
:/ CHECKSUM 1S ODD" BIT 
AN ODD # OF BYTES? 
:NO 
3/2 FOR WORDS 
;PREP CHECKSUM WORD 
FORM SUM 
[WITH CARRY 
[MORE WORDS? 
YES 
:wAs IT ODD 
[YES GET NEXT BYTE 
ZUN=SIGN EXTEND 
SAND CARRY JUST IN CASE 
;RETURN IT IN CORRECT PLACE 


Mov (SP) +,R2 


MOV (SP)+,R3 
;RETURN 


SEQ 0073 
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CKCKSM / MODULE TO CHECK THE CHKSUM SEQ 0074 

7 .SBTTL CKCKSM / MODULE TO CHECK THE CHKSUMS 

84 3+ 

944 3 MAKE SURE THE a eS 9 RECEIVED = THE CHECKSUM CALCULATED. 

84 : INPUTS: R4& = THE PACKET BYTE COUNT 

850 3 -> THE PACKET T 

851 : OUTPUTS: CARRY SET IF CHECKSUM CALC'D DOES NOT EQUAL CHECKSUM SENT 

£2¢ $ RO => THE PACKET TOP 

85 :-- 

2854 

2855 

2856 013728 CKCKSM:: PUSH R1 
013750 010146 MOV R1,-(SP) 

2857 O13 3s PUSH RO ; SAVE 
013752 010046 MOV RO,-(SP) 

2858 013754 010401 MOV R4,R1 ;COPY BYTE COUNT TO — 

2859 013756 0047357 013654 CALL CHKSUM :REGISTER FOR CHKSUM AND 

$36? sFORM CHECKSUM 

2 HERE RO ==> XMITTED CHKSUM, R1=CHKSUM CALC'D 

spec 013762 122001 CMPB (RO)+,R1 sLOWER ORDER CHECK 

Seee 013764 001005 BNE 2s WRONG 

867 013766 000301 SWAB Rj 30K-PREP FOR 

869 013770 122001 CMPB (RO)+,R1 sHIGH ORDER CHECK 

870 013772 001002 BNE 2s 7 WRON 

871 013774 000241 CLC sOK-CLEAR SAILING 

sor 013776 000401 BR 3$ EXIT 

oer? 014000 000261 2$: SEC ;LET ERROR BE KNOWN 

28 

2878 014002 3$: POP RO 
014002 012600 MOV (SP)+,RO 

2879 014004 POP R1 
014004 012601 MOV (SP)+,R1 


2880 014006 000207 RETURN zRETURN 


es 
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DOBRK / MODULE TO INIT TUS8 AND TEST INTERRUPTS 
2883 .SBTTL DOBRK / MODULE TO INIT TUS8 AND TEST INTERRUPTS 
885 p++ 
886 : DOBRK = SEND RADIAL SERIAL ‘BREAK'' TO DEVICE: 
88 : = SET BREAK’ ON INTERFACE. 
888 : - SEND 8. NULLS 
689 ; ~ BREAK'' ON INTERFACE 
890 : = SET VECTORS FOR RCV AND XM 
891 : = SEND 2 BYTES OF “INIT 
89 : = RECEIVE ‘CONTI 
289 : - IF RECEIVE GARBAGE OR TIMEOUT - ERROR 
2894 : = CLEAR INTERRUPTS AND VECTORS 
895 : INPUTS: @R5 BIT14 WAS SET = (SEND BREAK) 
2896 : OUTPUTS: @R5 BIT14 CLEAR IF SUCCESSFUL INIT. 
2897 : SYSTAT+1 = RECEIVED BYTE 
2898 ; ERRORS R4 = ERROR CODE: 
2899 : = SEND NOT READY TIMEOUT (TOSNDB) 
2900 : - NO RESPONSE 
2901 : - DLV ERROR 
2902 : = CAN'T INIT 
2905 014010 105037 014543 DOBRK:: CLRB  INITWD+1 SCLEAR BYTE RECEIVE ADDR 
2906 014014 005037 014544 CLR BRKTO *CLEAR TIME OUT CONSTANT 
7 014020 052775 000001 000026 BIS #B1TO,@XMSR(RS) :SET "BREAK" 
2908 014026 012765 000001 000100 MOV #RSSNIT,CMDSNT(R5) ;SAY WE SENT ‘INIT® 
2909 074034 052715 000020 BIS #BIT4,aRS PAK SENT TYPE =COMMAND 
2910 014040 012704 000010 MOV «RS SBREAK-1T'S-BACK COUNT=8 
2911 014044 1$: BREAK SSUPERVISOR TAKE FIVE 
014044 104422 
2912 sFOR *C CHECK, ETC. 
2913 014 105775 000026 TSTB aXMSR(RS) SREADY? 
2914 014052 100410 BMI YES 
2915 014054 005337 014544 DEC BRKTO [NO,TIME OUT? 
2916 014060 001371 BNE : 
2917 014062 012704 000056 MOV #TOSNDB,R4 YES, SET ERROR CODE 
2918 014066 737 012634 CALL 06 [L0G IT 
2919 014072 535 BR $ EXIT 
920 014074 113775 014540 000030 4$: MOVB  BRKWD,@XMDB(R5) :SEND NULL 
21 014102 005037 014544 CLR BRKTO SRESET TIME OUT 
$908 014106 005304 DEC RG SMORE NULLS TO SEND? 
3923 014110 001355 BNE 1 7¥ 
2924 014112 005375 000026 DEC @XMSR(RS) [NO, CLEAR "BREAK* 
92 014116 017500 000024 MOV @RCDB(R5),RO  :HEAVE ° E* 1ST BYTE 
26 01412 SETPRI #PRIOO *SET TO INTERRUPT FO SURE 
014122 012700 000000 
014126 104441 
2927 0141 SETVEC TUVECT(RS) ARCVINT,APRIO7 ;SET VECTO INFO 
0141 012746 000340 
014134 012746 014450 
014140 016546 204 
014144 012746 000003 
Oreie>. Oner0 10 
2928 b12186 693708 $p0 00s 000204 ADD #4,TUVECT(RS) ;AND INC _TO SND VECTOR 
29 014164 SETVEC TUVECT(RS) ,ASNDINT,APRIO7;AND SET IT 
014164 012746 000340 


SORT OF 


TRAP 


SEQ 0075 


CSBRK 


#PR100,RO 
CSSPRI 


#PR107,-(SP) 
#RCVINT,-(SP) 
TUVECT (RS) .~(SP) 
#3,-(SP) 

CSSVEC 

#10,SP 


#PRIO7,-(SP) 


mm 
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DOBRK / MODULE TO INIT TUSS AND TEST INTERRUPTS SEQ 0076 
014170 012746 014434 MOV #SNDINT,<(SP) 
O1417% 16546 000204 MOV TUVECT (RS) .~(SP) 
14 12746 000003 MOV #3,-(SP) 
014204 10443 TRAP  CSSVEC 
0142 962706 000010 ADD #10,SP 
30 bidet 162765 000004 000204 SUB #4, TUVECT(RS) ;RESET VECTOR ADDR. 
31 014 005037 014544 CLR BRKTO ‘RESET TIME OUT 
EY 014224 912704 14542 MOV MINITWD,R4 [USE ADDR. FOR SNDBY 
3 0142 010437 014546 MOV R4,BRKPTR TAND SAVE FOR ‘WAIT'’ 
2934 014234 052775 000100 000026 BIS #BIT6,aXMSR(RS) :ENABLE INTER. 
35 014242 004737 014504 CALL WAIT [AND ENTER LOOP 
3936 014246 005715 TST aR SABORTED FROM TIME OUT? 
3937 014250 100446 BMI 3$ S YES-EXIT 
2939 014252 005037 014544 CLR BRKTO sRESET TIME OUT 
2940 014256 2704 014542 MOV HINITWD,R4 ‘SEND SECOND INIT 
2941 014262 010437 014546 MOV R4,BRKPTR ‘SAVE POINTER AGAIN 
e942 014266 052775 000100 000026 BIS W#B1T6,aXMSR(R5) :AND THEN ENABLE INT 
014274 004737 014504 CALL WAIT 3 IT 
2944 014 005715 TST aR5 SIF ABORTED 
gn 014302 100431 BMI 3$ S THEN EXIT 
2947 014304 012704 014543 MOV MINITWD+1,R4 | ;WHERE RESPONSE WILL GO (ADDRESS) 
2048 014310 010437 014546 MOV R4 BRK : "WAIT® 
3949 014314 052775 000100 000022 BIS #BIT6,ARCSR(RS) ENABLE RECIEVE INT. 
2950 014322 004737 014504 CALL WAIT [GET ANSWER 
2951 014326 005715 TST ars ABORT 
2958 014330 100416 BMI 3$ ‘YES. 
2954 014332 123727 014543 000020 CMPB _—sINITWD+1,#RSCONT NO, IS IT "CONTINUE*? 
3955 014340 001003 BNE 2$ zNOPE-ERROR 
2957 014342 042715 040000 BIC #B1T14,aR5 sSUCCESSFUL, CLEAR DOBREAK FLAG 
3998 014346 000407 BR 3$ SEXIT 
2960 014350 113737 014543 003307 2S: MOVB _—sINITWD+1, SYSTAT#1 ;SAVE BUM RESPONSE 
2961 014356 012704 32 MOV #CNINIT,RG [CAN'T INIT CODE 
3962 014362 004737 012634 CALL :L0G IT 
296 *SCHEDULER WILL TRY AGAIN IF NOT ABORTED 
Soes 014366 042775 000100 000026 3S: BIC WB1T6,aXMSR(RS) ;CLEAR INTERRUPTS 
2966 014374 042775 000100 000022 BIC #BIT6,aRCSR(R5) ; AND FOR RECIEVE 
2967 014402 CLRVEC TUVECT(RS) SRELEASE RECIEVE VECT. 
014402 916500 000204 MOV TUVECT(RS) ,RO 
014406 1044 TRAP  CS$CVEC 
2968 014410 062765 000004 000204 ADD 4, TUVECT(RS) AND GET SEND ADDR. 
2969 014416 CLRVEC TUVECT(RS) SAND RELEASE IT 
014416 016500 000204 MOV TUVECT(RS) RO 
014422 104436 TRAP CSCVEC 
2970 014424 162765 000004 000204 SUB #4,TUVECT(RS) | ;RESTORE POINTER 
2971 014432 000207 RETURN RETURN 
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GLOBAL AREAS 

INTERRUPT SERVICE ROUTINES AND TIMER 
2974 
2 pe 


3378 i 042775 


000100 000026 
79 014442 000030 


000022 
000074 


014546 


3002 
014544 


000050 
012634 


ooooo COCOoOoOoOoCooO 
Se 


-SBTTL 
BGNSRV 


SNDHND : 


ENDSRV 


BGNSRV 


RCVHND : 


10$: 
ENDSRV 


WAIT: 


1$: 


BRKWD: .WO 
INITWD: 


BRKTO: 
BRKPTR: 


INTERRUPT SERVICE ROUTINES AND TIMER 


SNDINT 


BIC 
MOVB 


RCVINT 


#B1T6,aXMSR(RS) 
(R4) +, aXMDB(R5); 


:"'SEND’’ INTERRUPT SERVICE: 
SNDINT:: 


: DISABLE INTERRUPT 
);0UTPUT BYT 


L10004: 
RTI 


3"'RCV’’ INTERRUPT SERVICE: 
RCVINT:: 


#B1T6, eer: ;DISABLE INTS 


apts 5) 


DLV(RS) 


R4,BRKPTR 
1$ 


BRKTO 
WAIT 
#TORCVB,R4 
LOG 


RSINIT 


LV(RSS 
DLV(RS), (R4)+ 
piv ERR) 


SAV 
sBYTE TO BUFFER 
ERROR? 

[NO CLEAR ERROR 


L10005: . 
RTI 


LOOP FOR 
‘INTERRUPT SERVICING 
31F rer NO INTERRUPT 


S SUPERVISOR BREAK 
sKiLL SOME TIME 
sTIME OUT? 


3NO...CONT. 
eves + ERROR sd 


TRAP C$BRK 
TRAP C$BRK 


3NULL 
z INIT COMMAND 
sRSCONT IS EXPECTED HERE 


*POINTER TO INITWD 


SEQ 0077 
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COMPAR/DATA COMPARISON MODULE 


SEQ 0078 
16 .SBTTL COMPAR/DATA COMPARISON MODULE 
3018 p++ 
3019 : COMPAR = IF “COMPARE_DATA’ SELECTED, COMPARE EACH DATA BYTE OF PACKET 
20 : TO PATTEN(R5). SAVE NUMBER OF BYTES NOT CORRECT. IF NO 
3021 : 0, PRINT SOFT ERROR AND TOTAL # WRONG BYTES. SET ‘BAD_DATA_ 
32 ; IN_PACKET’ BIT (BIT6 @R5) FOR HIGHER LEVEL MODULES. 
2 : INPUTS: = TCMPDAT) FLAG TO NOT COMPARE (=1) 
24 : = PKPTR(R5) POINTS TO DATA PACK. 
25 + OUTPUTS: BIT6 @R5 (BAD DATA FLAG) ADJUSTED. 
3026 $ LSLUN = UNIT NUMBER 
3027 : PRNSIZ = SIZE OF PACKET 
3030 014550 COMPAR:: PUSH RO ;COMPARE DATA IS DATA PACKET 
014550 010046 MOV RO,-(SP) 
3031 014552 PUSH RS >TO PATTERN WRITTEN 
014552 010446 MOV R4,~(SP) 
3032 014554 PUSH R17 sUSING BYTE COUNT IN PACKET 
014554 010146 MOV R1,-(SP) 
3033 014556 005037 014726 CLR BDBYTS :CLEAR TOTAL WRONG 
3034 014562 016504 000104 MOV PKPTR(RS),R4 § :GET TOP OF PACKET 
3035 014566 005737 002216 TST CMPDAT [COMPARE SELECTED? 
3036 014572 001451 BEQ : IT 
3037 014574 005204 INC RG SYES, LOCATE COUNT 
3038 014576 111401 MOVB = ARG RI IGET IT 
3039 014600 042701 177400 BIC #177400,R1 : SIGN-UNEXTEND 
3040 [MUST TEST BYTE-WISE... 
3041 014604 005204 INC R4 t==>FIRST DATA BYTE 
soe 814606 pge2es 000072 _ 18: ioe PATTEN(RS),(R4)+ sDATA-WHAT WAS EXPECTED? 
$042 014614 003287 014726 INC BDBYTS [NO, INCREMENT TOTAL WRONG 
3045 014620 005301 2$: DEC R1 :MORE LEFT? 
3046 014622 001371 BNE 1$ :YE 
014624 005737 014726 TST BDBYTS TANY WRONG? 
3 Oitess bt1e35 002076 BoV RSL SLUN ‘GET UNIT NUMBER 
3050 014636 042737 177770 002074 BIC a179 570 LSLUN :MASK IT OF 
51 014644 ERRSOFT 0.,MSBDAERRDES ;YES-PRINT ‘BAD DATA IN PACKET’ ERROR 
014644 104457 TRAP  CSERSOFT 
014646 «WORD 
014650 00634 “WORD MSBDA 
014652 013170 “WORD ERRDES 
3052 014654 PRINTB #DESC,BDBYTS 
014654 0137. 14726 MOV BDBYTS,-(SP) 
014660 012746 0147 MOV #DESC,-(SP) 
01 1274 2 MOV #2,-(SP) 
0146 1 MOV RO 
apace wake 
9. 
3053 $1490 pes7e aate BIS, #8116,aR5 :LET "EM KNOW UPSTAIRS-BAD DATA FLAG 


> = 


GLOBAL AREAS _ MACRO mins _25-FEB~82 07:06 PAGE 86-1 
COMPAR/DATA COMPARISON MOD Sea 007° 
54 014704 012737 000204 003336 MOV #132.,PRNSIZ  ;SIZE_IS ONE DATA PACK 
55 014712 737 014764 CALL - PRNPAK SAND PRINT THE PACKET 
56 014716 4$: POP R1 ORE 
014716 012601 ov (SP)+,R1 
3057 01 4738 POP R4 
014720 012604 MOV (SP)+,R4 
3058 014722 POP RO 
014722 012600 MOV (SP)+,RO 
3060 014724 000207 RETURN 
3062 014726 000200 BDBYTS: 


«WORD 
3063 014730 045 101 124 DESC: hy /%ATOTAL BAD BYTES= %D3%A.2N/ 


Fane 


cf | 
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PRNPAK/MODULE TO PRINT DATA PACKET SEQ 0080 


Heh .SBTTL PRNPAK/MODULE TO PRINT DATA PACKET 
9 3+ 
70 : PRNPAK = IF PRINT_DATA_PACK_ON_ERRO® SELECTED: PRINT EACH BYTE OF PACKET 
71 ; TO BY PKPTR(RS). 
307% : INPUTS: PRNSIZ = # OF BYTES IN PACKET. 
7 t OUTPUTS: NONE 
sore :-- 
3076 014764 000240 PRNPAK:: NOP :PRINTS 1 PACKET 
3077 *PKPTR(R5)=>TOP OF PACKET 
3078 i sPRNSIZ (PASSED)=BYTE COUNT 
79 014766 PUSH RO 
014766 010046 MOV RO,-(SP) 
3080 014770 PUSH = R& 
014770 010446 MOV R4,-(SP) 
3081 014772 105737 002214 TSTB = PRBUF sPRINT PACKET SELECTED? 
3082 014776 001451 BEQ 4 3 
3083 015 016504 000104 MOV PKPTR(RS),R4 § :YES=-GET TOP OF PACK 
3084 015004 012737 900020 015130 13: MOV . oLNCNT 716 BYTES PER LINE 
3085 015012 112437 0151 2$: MOVB _ (R4)+, PRDAT SAVOID SIGN EXTEND 
3086 015016 PRINTF #PRFORM,<B,PRDAT> ;PRINT BYTE 
015016 005046 CLR -(SP) 
015020 153716 015132 BISB = PRDAT, (SP) 
015024 012746 015134 MOV #PREORM, -(SP) 
015030 012746 000002 MOV #2,-(SP5 
015034 010600 MOV PRO 
015036 104417 TRAP SPNTF 
015040 062706 00 ADD #6,SP 
3087 015044 005337 ie DEC PRNSIZ ZONE LESS 
015050 001414 BEQ *NO MORE 
3089 015052 005337 015130 DEC NCNT sNEW LINE? 
3090 015056 001355 BNE $ ‘NOT YET 
3091 015060 PRINTF #CARLF YES 
015060 012746 015144 MOV #CARLF ,-(SP) 
015064 012746 000001 MOV #1,-(SP) 
015070 0106 MOV SP.RO 
015072 10441 TRAP — CS$PNTF 
015074 062706 000004 ADD #4,SP 
3092 015100 000741 BR 1$ :NEXT LINE 
915102 3$: PRINTF #CARLF ‘FINISH UP 
015102 012746 015144 MOV #CARLF .-(SP) 
015106 746 000001 MOV #1,-(SP) 
015112 01 MOV SP-RO 
015114 10441 TRAP  CSPNTF 
015116 062706 000004 ADD #4,SP 
3094 o13128 4$: POP RG 
015122 012604 MOV (SP)+,R4 
3095 015124 PoP RO 
or813¢ 012600 MOV (SP)+,RO 


3096 015126 000207 RETURN ;RETURN 
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PRNPAK/MODULE TO PRINT DATA PACKET 


LNCNT: - WORD 
117 063 PRFORM: “ASCIZ /%03%A / 
116 000 CARLF: .ASCIZ /%N/ 
EVEN 





SEQ 0081 


eee Sy | SECT My. MACRO M1113 25-FEB-82 07:06 PAGE 89 
AK/MODULE TO PRINT DATA PACKET SEQ 0082 


119 .TITLE MISCELLANEOUS SECTIONS 
120 "SBTTL REPORT CODING SECTION 
149 015150 BGNMOD 
13 
13¢ " THE REPORT CODING SECTION CONTAINS THE 
33e ; PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 
155 jt 
3156 015150 BGNRPT 
015150 LSRPT:: 
3157 015150 PUSH RO 
015150 010046 MOV RO,-(SP) 
3158 015152 PUSH R17 
015152 010146 MOV R1,-(SP) 
3159 015154 PUSH = R2 
015154 010246 MOV R2,-(SP) 
3160 015156 PUSH = R3 
015156 010346 MGV R3,-(SP) 
3161 015160 PUSH = RG . 
015160 010446 MOV R4,-(SP) 
3162 015162 PUSH = RS 
015162 010546 MOV R5,-(SP) 
3163 
3164 015164 BREAK 
015164 loaaag TRAP C$BRK 
3165 0153166 012737 003350 015576 MOV #BLKTBL, RPTR  ;:GET 1ST DEVICE BLOCK 
166 015174 PRINTS #STATHD SHEADER 
015174 012746 015600 MOV #STATHD,=(SP) 
015200 012746 000001 MOV #1,-(SPS 
015, 01 MOV SP-RO 
015 06 104416 TRAP  CSPNTS 
015210 062706 000004 ADD #4,SP 
3167 015214 BREAK :*C CHECK 
015214 104422 TRAP CSBRK 
3168 015216 PRINTS #STHD2 Z2ND HEADER 
O15 18 or 746 016054 MOV #STHD2,-(SP) 
15222 012746 000001 MOV #1,-(SP) 
015, 36 01 MOV SP-RO 
015, 104416 TRAP  CSPNTS 
015232 062706 000004 ADD #4,SP 
3169 O15 4 saans 1$: BREAK :*C CHECK eitiivees 
3170 aE 4 Aoeeee 000332 MOV @RPTR,RS :GET DEVICE BLOCK 
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#81T11,aR5 
2s 


ars,R 
at 7570. RLUN 
SOF TR(R5) -R1 


#17 R 
SOF TW(R5) R2 
#17 


SOFTR+1(R5),R1 
177400,R 

SOF TW+1(R5) ,R2 

HARDR#1(R3) .R3 

#177400,R 

HARDW+1 (R5) .R4 

#177400 ,R4 


#FM.#1 JWRTNT (RS) ZRDNI (RS) .<B.BDATA+1 (R5)>.R1-R2-R5-RA 


UNIT NOT TESTED? 
TRUE, DON'T PRINT STATISTICS 
PRINT 


30K 
sSAVE STATUS WORD 
;MASK_UNIT NUM. 


*SUMMARY/UNIT # 


RLUN,=(SP) 
#FMO,-(SP) 
#2,-(SP) 


SP;RO 
CSPNTS 
#6,SP 


EE Rx 


ed a mt aed a et 
WV Vw ow OT 
SE SSS SS FE 


FUN “OC OBNOUSWN Oo 


cTl 
Ctl 
104416 


7 
7 


012605 
012604 
012603 
012602 
012601 


012600 


ADD 


POP 
ENDRPT 
- WORD 


- WORD 
ASCII 
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890056 003366 2S: 


000137 015236 


RPTR ALSTDEV 
#2,RPTR 


1$ 
RS 


R4 


R3 


R2 


R1 


RO 


/%A 
/2D3%A. 


sALL UNITS DONE? 


:NO=DO 

MORE UNITS 

mov =: (SP) +, RS 
Mov —s- (SP) +, R4 
Mov = (SP) +, R3 
Mov —s- (SP) +,R2 
mov = (SP) +,R1 
Mov —- (SP) +, RO 


2D52%A. 
2D32%A. 


/ENZA DR BLKS WR BLKS RD BDPAK / 
@DCHK/RD DCHK/WR DCHK/RD DCHK/WRIN@ 


/ZAUNIT %D12N/ 


2D52A. 


/%A 
/RECOV RECOV UNRECOV UNRECOV2ZN/ 





2D32A.2N/ 
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INITIALIZE SECTION SEQ 0085 
37 .SBTTL INITIALIZE SECTION 
34+ 
: THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
1 : AT THE BEGINNING OF EACH PASS. 
016164 BGNINIT 
: 0161646 LSINIT:: 
3 016164 000240 INIT: NOP : 
40 016166 105037 016746 CLRB ss STRT [FOR STATS CLEAR 
41 016172 005037 00334 CLR TESTS teeeee CLR TST 9 FLAG 
42 016176 READEF #EF.START [START COMMAND? 
016176 012700 000040 MOV #EF .START,RO 
916202 104447 TRAP C$REFG 
3243 01 Ati BNCOMPLETE INIT2 NO aa 
44 ores 005097 016746 INC STRT sYES, SET START FLAG 
45 01621 le 37 003350 003312 INIT2: MOV WBLKTBL,DEVPTR :SET ALL UNITS ABORTED: 
46 0162 004 CLR RG [UNIT NUMBER 
3347 016222 017705 165064 1$: MOV @DEVPTR,RS “GET POINTER 
3248 016626 010415 MOV S INSERT UNIT # 
49 01 056715 100000 BIS #81T15,aR5 - SET 
50 016254 052715 004000 BIS #81T11,aR5 sSET UNIT NOT TESTED 
51 01 40 ASL RG #2 FOR -UP 
3¢ 01624 016465 027700 000102 MOV BUFTBL(R4),RCVBUF(RS) ;SETUP POINTER TO UNIT'S BUFFER 
3253 016250 ASR :CORRECT BACK TO UNIT # 
3254 016252 023727 003312 003366 CMP DEVPTR,ALSTDEV ;LAST DEVICE DONE? 
55 016260 103005 BHIS H 3 
3356 016262 062737 000002 003312 ADD #2,DEVPTR :NO-GET 
3357 016270 005204 INC R4 [NEXT DEVICE AND 
3058 016272 000753 BR 1$ SERVICE 
3260 916274 022737 000010 002012 CHECK: CMP #8. ,LSUNIT 3MAKE SURE NOT 
61 016302 103005 BH GETHRD :TOO MANY UNITS 
3262 016304 ERRSF 101.,TOMANY : TOMANY-REQUEST “C 
016304 104454 TRAP  CSERSF 
016306 000145 .WORD 101 
916310 16664 “WORD  TOMANY 
01631 “WORD 0 
3263 016314 DOCLN ZEXIT 
016314 104444 TRAP CSDCLN 
65 016316 012737 003350 003312 GETHRD: MOV WBLKTBL,DEVPTR ;INIT TABLE POINTER 
3266 016326 905004 CLR SCLEAR DEVICE COUNTER 
67 016 17708 164760 1$: MOV @DEVPTR,RS [GET STATUS 
68 016 010437 002074 MOV R4,LSLUN [UNIT NUM. IN CASE ERROR 
69 016336 GPHARD R4.R2 [GET HARD INFO 
16336 0104 MOV R4,RO 
16 9 10444 TRAP si 
16 01000; MOV RO.R2 
3270 016344 BNCOMPLETE 3$ 
16344 103111 Bcc 3$ 
71 016 6 715 004000 BIC #81T11,aR5 sUNIT IS TESTED! 
72 01635 16208 MOV (R2)+, :R3=CSR 
73 016354 012265 000204 MOV (R2)+,TUVECT(RS) ;GET VECTOR ADDRESS 
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rm 


Ww 
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CTIONS 
ON 
112265 000061 
ti3s37 ars 
032765 000060 
001011 : 
032765 001000 000060 
001005 
104454 
000146 
016714 
000000 
104444 
105737 016746 
1412 
012702 00020 
012701 00011 
501 
162702 000110 
105021 
005302 
001375 
042715 100000 
010365 000022 
062703 000002 
010365 000024 
062703 000002 
010365 000026 
06270 ‘ 
10573 1675 
00140 
16270 
010365 30 
5065 BOOS 
5065 00000 
005065 
Bo 3063 76 
G030e8 900074 
5037 8 
737 003312 
o329% 002012 
1250 
005037 003506 
104421 
100. 


13$: 


2$: 


14$: 


4$: 


3$: 


5$: 
SETLEN: 


CLR 
RFLAGS 
CLR 


MOV 
ASR 
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(R2)+,DR+1(R5 
PDTFLG 
1T14,ar 
T8,OR(RS) 
1T9,DR(RS) 


(R2)+ 
; 14 


102. ,NODRVS 


STRT 
14$ 


#BLKEND ,R2 
#WURTNO,R1 


R5,R1 
#WRTNO,R2 
(R1)+ 

R2 


2s 

#81715 .aR5 
R3,RCSR(RS) 
#2.R 
R3.RCDB(RS) 
R3.XMSR(RS) 
#2,R3 
PDTFLG 

4$ 

#4 ,R3 
R3,XMDB(RS) 
PATTEN(RS) 
RETRY (RS) 
REC(RS) 
SUCCS(RS) 
DLV(RS) 
MARSP(R5) 
ALLGON 

R -DEVPTR 
R4,LSUNIT 
1$ 

SYSTAT 
FLGLOC 


BLKER 
LENGTH, TAPLEN 
TAPLEN 


: S : 
zR1-->START OF STATS. 
sFORM # TO CLEAR 


sCLEAR ‘EM 
>MORE? 


*' SET NOT ABORTED 
:GET DEVICE REGISTERS: 


ZUNIT A PDT? 
:YES...RCDB=XMDB 
:ZERO DATA PATTERN 
:NO RETRIES 
ZNO RECORD 
:NO SUCCESS 


teeeee CLR MRSP INDICATOR 
[0K TO PRINT STATISTICS 


s7~>NEXT DEVICE 

: INCREMENT UNIT NUMBER 
sMORE UNITS? 

YES, GP HARD THE NEXT 
; SYSTEM STATUS WORD 
3;GET USER FLAGS 


TRAP CSRFLA 
MOV RO.FLGLOC 
3NO_ERROR 

:GET # OF RECORDS 

3GET # BLOCKS PER TRACK 


7 
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800200 903810 


000400 003334 
117 117 
105 114 


3$: 


TOMANY : 
NODRVS: 


STRT:: 


PDTFLG:: 
FLGLOC:: 


#200, SECREC sPRESET SEC START AT 200 
td 00; TAPLEN # BLKS > 90.2 : 


CMP : e 
BHI sNO-SWITCH TRACKS 2ND PASS 
MOV #400, SECREC sYES=START AT 400 
ENDINIT 
110007: 
TRAP CSINIT 


eASCIZ /TOO MANY UNITS MAX.=8 / 
<ASCIZ /SELECT AT LEAST 1 DRIVE / 
EVEN 


WORD ;TUS8 IS_IN PDT 
WORD sUSER FLAGS 


mn 
- 


SeeveN 


WW 
$s 
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: THe AUTO DROP CODE IS INVOKED WHEN THE ADR FLAG IS SET AND CHECKS FOR 
A VALID INTERFACE LOCATION. DROPS UNIT IF JNTERFACE IS NOT THERE. 


BGNAUTO 
LSAUTO:: 
000240 NOP 0 DROP ROUTINE 
SETVEC #4, aTRPHiiD” UR TO? ;GET BUS TRAP VEC. 

012746 000340 MOV #PRI07,-(SP) 
012746 017064 MOV STREMND -(SP) 
12746 000004 MOV #4,-(SP5 
1 746 000003 MOV #3,-(SP) 
10443 TRAP  C$SVEC 
062706 000010 ADD . 
012737 003350 017062 MOV #BLKTBL,TRPPTR 2GET TOP OF DATA BLOCK TABLE 
017705 000044 1$: MOV at “GET DATA BLOCK 
032715 104000 BIT #81115'B1T11,aR5 ;NOT TESTED OR ABORTED? 
100403 BMI YES 
005775 000022 TST @RCSR(RS) *NO=-VALID ADDRESS? 
000240 NOP VES. (TRAP IF NOT) 
023727 017062 003366 2$: COP TRPPTR,#LSTDEV shone TO T 
062737 000002 017062 ADD #2, TRPPTR [ON TO NEXT 
000760 BR 1$ 3GET IT 

3$: CLRVEC #4 “RESTORE 
012700 000004 MOV #4,RO 
104436 TRAP CSCVEC 

ENDAUTO 

L10010: 

104461 TRAP CSAUTO 
000000 TRPPTR: .WORD 

ZILLEGAL ADDRESS TRAP HANDLER: 
012746 017116 TRPHND: PRINTF #MSAUTO SAY ‘AUTO DROPPED*’ nov 10.<($P) 
012746 000001 MOV FetsPs 
910600 MOV SP.RO 
10441 TRAP  CSPNTF 
062706 000004 ADD #4,SP 
011500 MOV ars RO :GET UNIT # 
042700 177770 BIC #177770,R0 :MASK IT OFF 

poDU =: RO ‘DROP HIM 
104451 TRAP C$DODU 
000002 RTI 
04 101 101 MSAUTO: .ASCIZ /%AAUTO DROP: %N/ 


MISCELLANEOUS S$ 
CLEANUP CODING 
397 
305 
99 
00 
01 
02 
ret 
04 017136 
017136 
3405 017136 
3406 017142 
3407 017144 
3408 017150 
3409 017152 
017152 
3410 
3417 
3429 
3430 017154 


ECTIONS 
SECTION 


005737 
001004 
005737 
001401 
104424 


104412 
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003340 
002212 


«SBTTL CLEANUP CODING SECTION 


1$: 


THE CLEANUP CODING eee 
;_AFTER THE HARDWARE T 


iat ALLGON 
TST STAEOP 
1$ 


ENDCLN 





TION CONTAINS THE CODING THAT IS PERFORMED 


STS HAVE BEEN PERFORMED. 


LSCLEAN 
4 fae FROM ALL=UNITS=ABORTED? 


3 YES-EXIT 
3NO=STATS AT EOP? 


YES 


L10011: 


TRAP 


TRAP 


CSDRPT 


CSCLEAN 


w 
Ww 


EE SEEKERS SE 
SSBGEAE 


P ar es 
eee 


3447 017174 
017174 


3448 pI 176 


So 
= 


NN NN 
SSNS 
SOnNoo 


et a a A 
SNNNNN 
PONONOANNY 


“I 
o oooooooo 


RESERESE SES 
BBVRARANISS 


17254 


MACRO M1113 25-FEB-82 07:06 PAGE 97 


017254 
000002 
000006 
003350 
000016 
000002 


101 


-SBTTL DROP UNIT SECTION 


p++ 
: THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


3 TO NO LONGER BE TESTED. 


017252 GETRS: 
1$: 


017252 


2$: 
PTR: 
104 ABOMSG: 


BGNDU 


PUSH 
PUSH 


CALL 
BIS 
POP 


POP 


PRINTF 


RETURN 
- WORD 


RO 
R5 


GETRS 
#B1T15,aR5 
R5 


RO 


#A30MSG RO 


#BLKTBL,PTR 
@PTR,RS 


2s 
#2,PTR 
1$ 


¢ROSUNIT NUMBER 
: RO,=(SP) 


zSAVE PRESENT UNIT POINTER 
MOV R5,-(SP) 


;GET POINTER TO UNIT 

3SET ABOR 

sRESTORE PRESENT UNIT POINTER 
MOV (SP)+,R5 


;RETRIEVE UNIT NUMBER 
MOV 


(SP)+,RO 


7-->UNIT 0 

*GET STATUS WORD 
CORRECT UNIT? 
[NO,-->NEXT 

* CONTINUE 


eASCIZ /ZADROPPED UNIT 2012N/ 
-EVEN 


L$DU:: 





L10012: 


25 
SF 
. 
as 


SSSLRALAT 


SEE 


Bus 


WWW 
wMuvivMui 
td od ed 


Who 


017302 ENDAU 


nN 7 
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ION 

~SBTTL ADD UNIT SECTION 
p++ 
3 THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
3 TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
3; TO THE TEST CYCLE. 

17302 BGNAU 

17302 L$AU:: 
;THE INIT CODE CONTAINS ALL CODE NECESSARY TO ADD A UNIT. 


L10013: 
TRAP 


C$AU 


8 
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TEST 1 / DEVICE SELF=DIAGNOSTIC EXECUTION SEQ 0092 

573 .SBTTL TEST 1 / DEVICE SELF=-DIAGNOSTIC EXECUTION 

575 017 BGNMOD 

376 .NLIST ME,BEX 

578 017304 BGNTST 
017 Tl:: 

3579 017 TSTID #TSTi 
017 Oreree O17 330 003326 MOV #TST1,TSTTOP sSAVE ADDR OF TEST 
017312 0047 7 004 CALL SETUP SINIT UNITS TSTPC 
017 1g 737 0056 CALL  SETDR GET 1ST DRVS. 
01732 004737 90605 CALL RUN EST 
017326 004737 00553 CALL SWAPDR iGeT “gy DRVS. 
017332 103004 BCC 64$ “BR NO 2ND DRVS 
017334 004737 006004 CALL SETUP :REINIT UNITS TSTPC 
017340 004737 006052 CALL RUN SREPEAT TEST 
017344 64$: DONE 

3580 017344 EXIT TST 
017344 104432 TRAP  C$EXIT 

ae 017346 000136 .WORD £10014-. 

3582 017350 TST1:  TUSELF 
017350 012700 027722 64$: MOV ATRBUF ,RO ;FORM COMMAND PACKET 
017354 112710 000002 MOVB = #RSCMND,@RO LAG 
017360 112760 000012 000001 MOVB #RSMS1Z,1(RO) tSIZE 0 P mess AGE 
017366 112760 000007 000002 MOVB  &#RSSSLF.2(RO) :SELF TEST OPERATION 
017374 105060 000003 CLRB = 3(RO) :NO MODI 
017400 005060 000004 CLR 4(RO) [NO DRIVE OR SWITCHES 
017404 005060 000006 CLR (RO) *NO SEO NENCE NUMBER 
017410 005060 000010 CLR . (RO) : 
017414 005060 000012 CLR 10. (RO) NO OE CORD # 
017420 012701 000012 MOV #RSMSIZ, R1 3GET SIZ 
017424 005721 TST R1)+ +2 FOR CHECKSUM 
017426 012765 000016 000070 MOV #RSSNSZ, SNDCNT(R5) :SIZE TO SEND 
017434 004737 013654 CALL CHKSUM S 
017440 010110 MOV Ri tnd) INSERT INTO PACKET 
017442 012765 000002 000034 MOV WRSEND,XSFLG(RS) ;EXPECT END, 
017450 012765 000016 000036 MOV WRSNDS2Z,XSCNT(R5) |: THIS 
017456 012765 000001 000032 MOV #1, XSPKNM(RS) zAND 1 PACKET 
017464 004737 006560 . CALL ‘RETURN TO SCHEDULER 
017470 032715 000010 BIT RaIT3.aRS SRETRY?(BAD FLAG) 
017474 001325 BNE 64$ TYES 

3583 017476 005237 003322 INC DONE 

3584 017502 000207 RETURN 

3 

587 017504 ENDTST 


17504 L10014: 
17504 104401 TRAP CSETST 


c 
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TEST 2 / SEEK EOT,B0T SEQ 0093 


Ber .SBTTL TEST 2 / SEEK EOT,BOT 
592 017506 BGNTST 
017506 T2:: 
3593 017506 TSTID #TST2 
917506 012737 017552 003326 MOV ATST2,TSTTOP § ;SAVE ADDR OF TEST 
17514 004737 006004 CALL SETUP SINIT UNITS TSTPC 
017520 004737 0056 CALL = SETDR 3GET 1ST DRVS. 
017524 004737 00605 CALL RUN EST 
0175 004737 00553 CALL SWAPDR GET NEXT DRVS. 
017534 103 BCC 64$ +BR NO DRV 
0175 0047 7 006004 CALL SETUP SREINIT UNITS TSTPC 
01754 737 006052 CALL RUN [REPEAT TEST 
017546 64$: + DONE 
3594 017546 EXIT TST 
017546 104432 TRAP C$EXIT 
017550 000206 .WORD 110015. 
32 
3597 017552 005004 TST2: CLR R4 *R4=INDEX INTO RECORD TABLE 
3598 017554 016465 017742 000064 1S: MOV RECDAT(R4) REC(R5) ;GET THE RECORD 
017562 TUSEEK REC(RS),DR(R5S) ;SEEK IT 
017562 012700 02772 64$: MOV #TRBUF ,RO z-->(POINT TO) XMIT BUFFER 
017566 112710 00000 MOVB = #RSCMND, @RO ; COMMAND MESSAGE PACK 
017572 112760 90001 000001 MOVB  &#RSMSIZ. RO) :THIS BIG 
017600 112760 000002 MOVB &#RSSSEK.2(RO)  :OP CODE IS SEEK 
17 016560 000064 000012 MOV REC(R5).10.(RO) :TO THIS RECORD 
017614 116560 000060 000004 MOVB R(R5),4.(RO) AND WHICH DRIVE 
017622 105060 000003 CLRB RRO) :NO MODIFIER 
0176¢6 105060 000005 CLRB ; (RO) [NO SWITCHES 
017632 005060 000006 CLR 6. (RO) [NO SEQUENCE # 
017636 005060 000010 CLR 8. (RO) [NO BYTE COUNT 
017642 012701 000012 MOV #RSMS1Z,R1 [GET COUNT 
017646 005721 TST (R1)4 [PLUS FLAG + BCNT 
3FOR CHECKSUM CALC 
017650 004737 013654 CALL CHKSUM STOP R1=# OF BYTES 
017654 010110 R1, (RO) SINSERT INTO PACKET 
is T UP EXPECTATIONS: 
017656 012765 000016 000070 MOV WRSSNSZ,SNDCNT(R5) 3 TO SEND 
017664 112765 000002 000034 MOVB = #RSCMND, XSELG(RD) stare END PACK 
017672 012765 16 900036 MOV WRSNDSZ.XSCNT(R5) COUNT WITH THIS 
017700 012765 000001 00003 MOV #1.,XSPKNM(RS) | sEX XPECT ONLY 1 PACKET 
017706 004737 006560 CALL RSVP SEND 
017712 032715 000010 BIT #81T3,aR5 EARN (PLAS BYTE” ERROR? 
017716 001321 BNE 64$ YES 


#2,R4 POINT TO NEXT RECORD 
177777 a RECDAT(R4) ,#-1. sLAST ONE DONE? 


3NO-LOOP 
DONE 3YES-SET DONE FLAG 





Se 
TEST 2 / SEEK EOT,BOT 
17742 
17744 
10 01774 1 
11 01775 377 
\¢ 1775 
13 017754 1777 
14 017756 
017756 
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RECDAT: 0. :BOT 
‘BOT OTHER TRACK 
377 TEOT OTHER TRACK 
400 {BOT AGAIN 
ENDTST 
110015: . 


RAP 


CSETST 


8 
MISCELLANEOUS 


$ ONS MACRO M1113. 25-FEB-82 07:06 PAGE 106 
TEST 3 / HIGH A Y 


WRITE/READ (512 BYTE/BLOCK MODE) SEQ 0095 
v \SBTTL TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) 
19 ; WRITE THEN READ VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
: A RECORD, GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT 
2 017760 BGNTST 
017760 T3:: 
3623 017760 TSTID #TST3 
017760 012737 020024 003326 MOV #TST3,TSTTOP SAVE ADDR OF TEST 
17766 004737 006 CALL SETUP SINIT UNITS TSTPC 
017772 004737 0056 CALL SETDR [GET 1ST DRVS. 
017776 004737 90603 CALL = RUN ‘DO TEST 
920002 004737 00553 CALL § SWAPDR *GET NEXT DRVS. 
0 0006 10 Bcc 64$ ; DRVS 
020010 004737 006004 CALL SETUP SREINIT UNITS TSTPC 
020014 004737 006052 CALL RUN [REPEAT TEST 
020020 64$: + DONE 
3624 020020 EXIT TST 
920020 10443 TRAP  CSEXIT 
2 001326 .WORD 110016-. 
3658 
3627 020024 012765 000100 000066 TST3: MOV #100, TMP(RS) INIT TO HALF OF REMAINING 
3628 020032 005004 CLR R4 [FOR INDEX INTO DATA TABLE 
3629 020034 005065 CLR REC(RS) START AT RECORD 0 
30 020040 016465 022742 000072 1$: TST3PT (RG) ,PATT eNtR RS) _ :GET DATA 
31 020046 TyURIT PATTEN(RS) gREC(RD) gf5 12. DIRS) #0 
20046 012700 027722 72$: #TRBUF ,RO MAKE COMMAND PACKET: 
020052 116710 move aRschwb aro [COMMAND FLAG 
020056 112760 000012 000001 MOVB are]? 1(RO) THIS SIZE 
02 112760 00000 90000¢ MOVB  #RSSWR,2(RO) 3 INSERT OP CODE-wRITE 
020072 112760 00000 mova 3 =s« #0, 3. [VERIFY (1 OR 0) 
020100 116560 000060 000004 MOVB DR(R5),4. (ROD Ee 
020106 112760 000020 000005 MOVE #020 5. (RO) SMAINTENANCE MODE SWITCH 
020114 005060 000006 CLR [NO SEQUENCE # 
020120 012760 001000 000010 MOV gei5. e.¢ RO)  : TOTAL COUNT TO WRITE 
020126 016560 anaed 000012 MOV REC(R5).10.(RO) :AT RECORD 
020134 012701 000012 MOV #RSMSIZ.R1 [THE PACKET SIZE PLUS+2 
020140 005721 TST (R1)+ FLAG AND COUNT) INTO R1 
02014 912765 16 000070 MOV ARSSNSZ, SNDCNT (RS) LOAD THE SIZE TO SEND 
020150 004737 013654 CALL UP :RO ==> R1=COUNT 
020154 010110 R1, (RO) :PUT CHKSUM IN PACKET 
*SET ue EXPECTATIONS: 
920156 12765 900020 900034 MOV #RSCONT,XSFLG(RSS ;THE FLAG 
O164 012765 1 036 MOV =—s- #1, XSCNT(R5) THe Co 
9201 2 012765 000001 00003¢ MOV #1 oT SPRNMCRS) [THE # PACKETS EXPECTED 
ated } , $ ate PALL wie. oR SEND aioe he TURN OOS CHEDIER) 
eit hab 000010 BIT 1T3,aRr5 ZFLAG BYTE ERROR? 
1 15 01 BIC #B1T12,aR5 GELAG FOR LAST PACKET 
0 $528 bis 639 000 64$: MOV TRBUF .RO [POINT TO TOP OF BUFFER AGAIN 
0202 $ 20287 CMP é #128. * START DATA PACKET(S) 
ie 010201 Ea is, 14512. Jj at 
20 52715 010000 BIS #61T12,aR5 $SO LAST PACKET NOW 
20242 000402 BR 668 [USE REMAINING COUNT 





MISCELLANEOUS SECTIONS MACRO M1113. 25-FEB-82 07:06 PAGE 106-1 
TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) SEQ 0096 

020244 012701 000200 65$: MOV #128. ,R1 sUSE 128. BYTES 
9 0250 11 160 000001 66$: MOVB  R1,1(R0) :COPY COUNT TO BUFFER 

54 01010 MOV R1.R [R3=COUNTER TO LOAD BUFFER 
0 36 11 710 000001 MOVB = ARSDATA, @RO SFLAG FIRST 
0 00 es TST (RO)+ :SKIP COUNT 
020 64 116560 000072 67$:  MOVB _— PATTEN(RS), (RO)+ y INSERT DATA 
020. 9 005 DEC RS ; 
020 101374 BHI 67$ YES 
020274 012700 027722 MOV ATRBUF ,RO t==>TOP AGAIN 
020 116001 1 MOVB 1R0) Al *GET COUNT 
020 042701 177400 BIC #177400,R1 :ZERO SIGN EXTEND 
0 310 010165 000070 MOV R1,SNDCNT(R5) | :HOW MANY TO SEND PLUS 
020314 765 000070 ADD #4. SNDCNT(R5) > FLAG, COUNT, CHKSUM 
020322 062701 000002 ADD #2,R1 : COMPENSATE FOR FLAG + COUNT 
020326 004737 013654 CALL § CHKSUM [FOR CHECKSUM CALC. 
020332 110120 MOVB R71, (RO)+ [CHKSUM INTO PACKET 
020334 000301 SWAB sé SEVEN ON AN ODD 
020336 110120 MOVB = R17, (RO) + [BYTE BOUNDARY 
020340 032715 010000 BIT #B81T12,aR5 [LAST DATA PACKET? 
020344 901412 BEQ 6 NO 
020346 012765 000002 000034 MOV ARSEND,XSFLG(RS) ;YES-EXPECT ‘END’ 
020354 012765 000016 000036 MOV #RSNDSZ,XSCNT(R5S) °:OF THIS SIZE 
20 012765 000001 000032 MOV #1,XSPKNM(RS) | ;:AND 1 PACKET 
020370 000411 BR 6 * SEND 
020372 012765 000020 000034 68$: MOV ARSCONT.XSFLG(RSS ; (NOT LAST), EXPECT ‘CONTINUE’ 
020400 012765 000001 000036 MOV #1,XSCNT(RS) AND 1 BYTE 
020406 012768 000001 000032 MOV #1.XSPKNM(R5) SAND 1 PACKET 
020414 004737 006560 69$: CALL RSVP :SEND PACKET 

[AND RETURN TO SCHEDULER 

020420 032715 000010 BIT #8173, aR5 [FLAG BYTE RETRY? 
020424 001210 BNE YES 
020426 032715 002000 BIT #81T10,aR5 [RETRY DATA ERROR? 
020432 001004 BNE 70$ YE 
020434 162702 000200 SUB #128. .R2 [NO, MORE DATA TO SEND? 
020440 10127 BHI 64$ YES 
020442 BR 71$ iNO 
020444 70$:  TURTRY REC(RS),#512.,8R(85) ;=RETRY HERE 
020444 01 02772 76$: MOV #TRBUF RO :FORM CMND PACK: 
020450 11 a $5008 MOVB #RSCMND, @RO [MESSAGE PACK TY 
020454 11 760 12 000001 MOVB &#RSMSIZ.1(RO)  :THIS BIG 
0 1127 00000 MOVB &#RSSRD,2(RO)  :0P CODE-READ 
0 916360 900012 MOV REC(R5S.10.(RO) :THIS RECORD 

7% 165 MOVB BR (RS) .4, (RO) ‘THIS DRIVE 
020504 10 060 CLRB (RO) [PRESET NORM THRESHOLD 
020510 10571 TSTB SREDUCED? 
020512 10000 BPL 77$ NO 
OeoetS OND O08 1 778: tov aie. g.cno) sevice DESIRED 
020326 11760 68 ith mMOVB 4020.5. (RO) SMAINTENANCE MODE 
9205 00 CLR 6.(R [NO SEQUENCE # 

aH H 7 i y rer ae aie OF AGACCANT INTO R1 
ares O13 765 000016 000070 MOV #RSSNSZ,SNDCNT(R5) ;SET UP SIZE TO SEND 
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CHKSUM 3FORM CHECKSUM R1=COUNT 
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TEST 3 / HIGH ACTIVITY WRI 
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M1113 
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5-FEB-82 07:06 PAGE 106-2 
BYTE/BLOCK MODE) 


73$: 


75$: 


TUREAD REC(R5) ,#512.,DR(R5) ,#0 


82$: 


78$: 


80$: 


CALL 


R1, (RO) 
#512.,R1 
#XSFLGARS 
R5,R 
R 
ARSDATA, (R3)+ 
1 g-(R3)+ 
#128. ,R1 
75$ 
73$ 
RS XSPKNA(RS) 
MRSEND, (R3)+ 
oneal. (R3) 
RSVP 


ATRBUF RO 
#RSCMND , aRO 
#RSMS1Z.1(RO) 

#RSSRD 


a3 i. _ (RO) 
*§. (RO) 
rat) 


#RSMSIZ,R1 
(R1)+ 


D.3(RO) 
Si tas (RO) :T 


SEQ 0097 
zINSERT IN PACKET 
-SET EXPECTATIONS: 
C # OF DATA PACKETS TO EXPECT 
oreSer OF FLAG 
3ABS. ADDR. OF XSFLG 
oe PACKETS EXPECTED 
[LOAD XSFLG 


AND EXPECT COUNT 
iNEG the! LAST TIME 


3ADD ONE FOR END PAC 

ZSAVE # PACKETS TO EXPECT 
EXPECT AN END 

7THIS BIG-14. BYTES 


3 SEND 
3AND RETURN TO SCHEDULER 


;FORM CMND PACK: 
[MESSAGE PACK TYPE 


3THIS DRIVE 


VERIFY 
TOTAL BYTES TO READ 
INTENANCE MODE 


SEQUENCE # 
T SIZE OF — 


#RSSNSZ, noostal > SIZE To. SEND 
HKSUM CHECK 


R1, (RO) 
#512. ,R1 
i 


i 

788 

(RS) 
Ee SNSh nos 

RS P 


CKSUM R1=COUNT 
ZINSERT CHECKSUM 


EXPECTATIONS: 
iCALC # ar bata PACKETS TO EXPECT: 
3GET OFFSET 
ADDR. OF XSFLG 
{PRESET 
7" BRE KETS EXPECTED 
[LOAD XSFL 


ADD ONE PACK 

: SAVE # PACKETS TO EXPECT 
CT AN END ALSO 

eTHls BIG-14. BYTES 

[AND RETURN TO SCHEDULER 
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TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) 
021042 050715 002010 81$: BIT #91 T10!81T3, ORS ;RETRY? 
02104 1500 BEQ 
02105 TURTRY REC(RS) (W512. .DRIRS) YES 
1050 012700 0277 86$: MOV ATRBUF RO :FORM CMND PACK: 
1054 11271 MOVB = #RSCMND, @RO [MESSAGE PACK TYPE 
1060 1127 1 1 MOVB &#RSMSIZ.1(RO)  ;THIS BIG 
021 1127 : MOVB  &#RSSRD,2(RO) OP CODE-READ 
021074 0165 00001 MOV REC(R5S.10.(RO) :THIS RECORD 
0 1108 1165 000004 mOvB BR CRS) .4. (RO) STHIS DRIVE 
021110 105 CLRB (RO) [PRESET NORM THRESHOLD 
021114 10571 TSTB 3s @RS S REDUCED? 
02111 100008 BPL 878 3NO 
0211 1032 900003 INCB (RO) SYES=CHANGE THRESHOLD 
021124 012760 001000 00001 87$: MOV pare 8.(RO)  :# BYTES DESIRED 
021132 112760 000020 00000 move 4#020,5.(R 3MAINT ENANCE MODE 
921146 005060 900006 CLR 6. (RO) NO SEQUEN c 
021144 912701 00001 MOV #RSMS17Z,R1 erze OF CKET 
021150 005721 TST (R1)+ US F Lage COUNT INTO R1 
021152 012765 000016 000070 MOV ARSSNSZ. SNDCNT(RS) :SET UP SIZE TO SEND 
021160 004737 013654 CALL CHK ORM CHECKSUM R1=COUNT 
021164 010110 MOV oT eROD sUNSERY IN PACKET 
021166 012701 001000 MOV #512.,R1 sSET EXPECTATI 


ONS: 
zCALC # a OF DATA PACKETS TO EXPECT 


021172 012703 000034 MOV #XSFLG.RS ZOFFSET A 
021176 06050 ADD R5,R . ADDR. OF XSFLG 
021 00500. CLR 
021202 00520 83$: INC R ce PACKETS EXPECTED 
021204 ot 000001 MOV MRSDATA, (R3)+  :LOAD XSF ig 
021210 012723 000204 MOV ry g.(R3)* :AND EXPECT COUNT 
0 1314 162701 000200 SUB ag RI NEG RESULT LAST TIME 
021220 101401 BLOS 85 [LAST TIME! 
0 1e0e 767 $ : 
021224 9052 08 85$: —_— INC R SADD ONE FOR END PACK 
n 1206 0 1026 900052 MOV R2,XSPKNM(RS)  :SAVE @ PACKETS TO EXPECT 
v212 00000 MOV ARSEND,(R3)+ |: EXPECT AN END 
021236 + 713 000016 MOV #RSNDS?Z,(R3) :THIS B1G-14. BYTES 
021242 004737 006560 CALL RSVP SEND 

SAND RETURN TO SCHEDULER 
0 ADD #2,R4 :POINT TO NEXT DATA 
9 64 TST TSTSPT(R4) END? 
0 [NO-WRITE, READ NEW DATA 

POINT TO FIRST 


DATA 
USE ADJACENT RECORD 
ALL ADJACENT RECORDS DONE? 


JMP 1$ ?NO-WRITE, READ AT NEW RECORD 


TE 
765 001 000064 3$: SUS #1000, REC(RS) RESTORE TO NEXT RECORD 
565 ADD TMP(R5) REC(RS) :HALF INTO REST OF TAPE 
265 ASR TMP(R5) SHALF OF HALF FOR NEXT TIME 
03402 BCS 4$ : DONE? 
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BYTE/BLOCK MODE) 


1$ 
DONE 
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3NO 
3 YES-SET FLAG 
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CSETST 


SEQ 0099 
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CRO M1113. 25-FEB-82 07:06 PAGE 107 
TE/READ (128 BYTE/BLOCK MODE) SEQ 0100 


-SBTTL TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) 


; WRITE THEN READ VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
3 A RECORD, GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 


BGNTST 16 
TSTID #TST4 
21416 003326 MOV #TST4, TSTTOP 3SAVE ADDR OF TEST 
rts CALL SETUP zINIT UNITS TSTPC 
0056 CALL SETDR 3GET_1ST DRVS. 
B60 CALL RUN 3D0_ TEST 
5 CALL SWAPDR GET NEXT DRVS. 
BCC 64$ 2BR 2ND Ss 
006004 CALL SETUP sREINIT UNITS TSTPC 
006052 CALL RUN sREPEAT TEST 
648: 3 DONE 
EXIT TST 


000400 000066 TST4: MOV #400, TAP(RS) INIT TO HALF OF REMAINING 


s8 
S 


S 


_ 
Oo 
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ee 
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ss 


3 
3 


ad ed oe 
Sascs 
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oSoooocooed: 
None 
Soaeunes 
W=0Oh\— 
vee 
S>SSN == 
mou M—EUNNUWUIU 


CLR R4 3FOR_ INDEX INTO DATA TABLE 
RECORD 0 


REC(RS) SSTART AT 

MOV TST3PT(R4G),.PATTEN(RS) | :GET DATA 

TUWRIT PATTEN(RS) REC(RS) 4128. ,DR(R5S) ABIT7 
: MOV #TRBUF ,RO 


027722 72$ sMAKE COMMAND PACKET: 
06000 MOVB  #RSCMND, @RO :C FLAG 
000012 000001 MOVB &#RSMSIZ.1(RO) :THIS SIZE 
000003 00000 MOVB &#RSSWR,2(RO) INSERT OP CODE-WRITE 
200 00000 MOVE 177,8.(RO)  : VERIFY (1 OR OD 
MOVB DR(RSS,4.(RO) ss: * 
000020 000005 mOoVB #020,5.(RO) ‘MAINTENANCE MODE SWITCH 
CLR 6. (RO) [NO SEQUENCE 
$00208 000010 MOV #128..8.(RO)  : TOTAL COUNT TO WRITE 
000012 MOV REC(R5).10.(RO) :AT RECOR 
12 MOV SMS1Z, [THE PACKET SIZE PLUS+2 
TST (R1)+ “(FLAG AND COUNT) INTO R1 
16 000070 MOV #RSSNSZ,SNDCNT(R5) ;LOAD THE SIZE TO SEND 
013654 CALL § CHKSUM 7RO ==> R1=COUNT 
R1, (RO) [PUT CHKSUM IN PACKET 
“SET UP EXPECTATIONS: 
900020 000034 MOV #RSCONT,XSFLG(RSS ;THE FLAG 
1 0 $ MOV #1,XSCNT(RS) | :THE COUN 
1 03 MOV #1_XSPKNM(R5) :THE # PACKETS EXPECTED 
200 MOV #128. ,R2 :GET # OF DATA BYTES 
0 CALL ZSEND (AND RETURN TO SCHEDULER) 
000010 BIT #8 T3,ar5 [FLAG BYTE ERROR? 
BNE YES 
910000 BIC #B1T12,aR5 [FLAG FOR LAST PACKET 
27 32 64$: MOV t [POINT TO TOP OF BUFFER AGAIN 
CMP Re #128. SSTART DATA PACKET(S) 
BHI 658 74128. > 128.! 
MOV R2,R1 £#128.<128. 
010000 BIS #8] T12,aR5 *SO0 LAST PACKET NOW 
BR 66 SUSE REMAINING COUNT 


= 
PESEE So 
s 

SySNy= 


ao 
ww 


zo 


MIPMIPIPIPININONINPY 


SOoooooooooooo 


oO 
MIMO 


—_ —) a a 4 4 


022146 


am 


—Oo-9o “- 
a a | 


oo 


Sss= 

Mm—ui 
NOMn— 
BWSSO 


SSERSES 

=A Ne 

Sc 
NUN 


Wing 
Suse 


a BI IOI I IO 
NOUN NN 
SESSSS>AS 


SEAS 
Sx 


—_) 
ANNO NW 
SNSESS 


= 
= 
~ 
~“ 
wa 
™N 


MACRO M1113 
WRITE/READ (12 
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5-FEB-82 07:06 PAGE 107-1 
BYTE/BLOCK MODE) 


65$: 
66$: 


R1,1(RO) 


#RSDATA,aRO 


sSKIP C 
+ eorae o(RO)+ 


:==>TOP AGAIN 
:GET COUNT 
:ZERO SIGN EXTEND 


#17 oR1 

R1, SNDCNT (RS) 
#4, SNDCNT (RS) 
#2,R1 

CHKSUM 
R1,(RO)+ 
R1,(RO)+ 


#B1T12,aR5 
68S 


ARSEND ,XSFLG(R5) 
#RSNDSZ -XSCNT( 


#1, XSPKNA 


sUSE 128. BYTES 


COPY COUNT TO BUFFE 


; R 
3R3=COUNTER TO LOAD BUFFER 
zFLAG FIRST 


OUNT 
z INSERT DATA 


MANY TO SEND PLUS 


3 HOW 
3FLAG, COUNT ,CHKSUM 
:C NSATE FOR FLAG + COUNT 


zFOR CHECKSUM CALC. 
3CHKSUM INTO PACKET 
sEVEN ON AN ODD 
BYTE BOUNDARY 
3LAST DATA PACKET? 
sYES-EXPECT ‘END’ 
RS) ;OF THIS SIZE 
‘ACKET 


sAND 1 PAC 


SEQ 0101 


6 e 
WRSCONT,XSFLG(RSS ; (NOT LAST), EXPECT ‘CONTINUE’ 
XSCNT(RS) | ;AND 1 BYTE 


#1,XSC 
#1,XSPKNA(RS) 
RSVP 
#81T3,aR5 
72$ 
#81T10,aR5 
#128. ,R2 

$ 


1$ ; 
REC(RS) ,#128. ,DR(RS) 


,aRO 
1(RO) 


(R1)+ 
#RSSNSZ,SNDCNT(R5) 


CHKSUM 


zAND 1 PACKET 


: ACKET 
AND RETURN TO SCHEDULER 
ZFLAG BYTE RETRY? 
TRETRY DATA ERROR? 


[NO, MORE DATA TO SEND? 
YES 


sRETRY HERE 


7FORM CMND PACK: 
MESSAGE PACK TYPE 
sTHIS BIG 


SYES-CHANGE THRESHOLD 
7# BYTES DESIRED 
“MAINTENANCE MODE 


: QUENCE # 
SIZE OF PACKET 
sPLUS FLAG*COUNT INTO R1 


3SET UP SIZE TO SEND 
sFORM CHECKSUM R1=COUNT 
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BYTE/BLOCK MODE) 


73$: 


75$: 


CALL 


R1,(RO) 
#128. ,R1 
oer S.A5 
R5.R 


g 
pga ona 
#132.,(R3)+ 


75$ 
73$ 


R2 
R2,XSPKNM(R5) 
#RSEND, (R3)+ 
#RSNDSZ, (R3) 


RSVP 


TUREAD REC(R5) #128. ,DR(R5) .ABIT7 


82$: 


78$: 


80$: 


MOV 
v8 


#TRBUF ,RO 
ARSCMND , aRO 
#RSMS1Z,1(RO) 


WRSSRD,2(RO) ss: 
REC(R5S.10.(RO) ; 
DR(R : 


5) ,4. (RO) 
#BIT7,3. (RO) 
#128. 8. (RO) 
#020,5. (RO) 
6. (RO) 
ARSMSIZ,R1 


SEQ 0102 
s INSERT IN PACKET 


“SET EXPECTATIONS: 
sCALC # OF DATA PACKETS TO EXPECT 
‘OFFSET OF FLAG 
tABS. ADDR. OF XSFLG 


3PRE 

3# PACKETS EXPECTED 
sLOAD XSFLG 

zAND EXPECT COUNT 
sNEG_RESULT LAST TIME 
sLAST TIME! 


3ADD ONE FOR END PACK 
3SAVE # PACKETS TO EXPECT 


sEXPECT AN END 
sTHIS BIG-14. BYTES 
3 SEND 


zAND RETURN TO SCHEDULER 
3FORM CMND PACK: 
sMESSAGE PACK TYPE 


2VERI 
TOTAL BYTES TO READ 
sMAINTENANCE MODE 


3NO_ SEQUENCE # 
3GET SIZE OF PACKET 


(R1)+ s+ 
#RSSNSZ,SNDCNT(R5) ;SIZE TO SEND 
HKSUM ; C 


R17, (RO) 
#128. ,R1 

oust 6.R3 
R5_R 

R 

#RSDATA, (R3)+ 
Hise. h3)3 


8$ 
5 
R2,XSPKNM(RS) 
ARSEND, (R3)+ 
#RSNDSZ, (R3) 
RSVP 


; HECKSUM R1=COUNT 
z INSERT CHECKSUM 


*SET EXPECTATIONS: 

:CALC # OF DATA PACKETS TO EXPECT: 
:GET OFFSET 
SABS. ADDR. OF XSFLG 
SPRESET AS NONE 
:# PACKETS EXPECTED 
*LOAD XSFLG 
SAND EXPECTED COUNT 
"NEG RESULT LAST TIME 

ST TIME 


‘ADD ONE FOR END PACK 
“SAVE # PACKETS TO EXPECT 
EXPECT AN END ALSO... 
THIS BIG-14. BYTES 

[AND RETURN TO SCHEDULER 
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TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) SEQ 0103 
022434 032715 002010 81$: BIT #91710!81T3, »@RS :RETRY? 
026649 001500 BEQ ‘NO. 
022442 "URTRY REC(RS),#128.,DR(R5) YES 
022442 012700 02772 86$: MOV #TRBUF ,RO sFORM CMND PACK: 
022446 112710 00000 MOVB = #RSCMND, a@RO SMESSAGE PACK TYPE 
02245 116760 000012 000001 MOVB  &#RSMSIZ.1(RO) THIS BIG 
022460 112760 000002 00000 MOVB SSRD,2(RO)  :OP CODE-R 
022466 016560 000064 00001 MOV REC(R5S.10.(RO) : THIS RECORD 
022474 116560 000060 000004 MOVB  DR(RS),4. (RO) :THIS DRIVE 
022502 105060 00000 CLRB = 3(RO) [PRESET NORM THRESHOLD 
022506 105715 TSTB 3s a@RS REDUCED? 
022510 100002 BPL 87s 
022512 105260 000003 INCB . 3(RO) SYES=CHANGE THRESHOLD 
022516 012760 000200 000010 87$: MOV #128..8.(RO)  :# BYTES DESIRED 
022524 112760 000020 000005 move  #020,5.(R0)  ;MAINTENANCE MODE 
022532 005060 000006 CLR 6. (RO) QUEN i 
027£36 012701 000012 MOV #RSMSIZ, SIZE OF CKET 
922542 005721 TST (R1)¢ LUS oT age COUNT INTO R1 
022544 012765 000016 000070 MOV #RSSNSZ, snpenT (Ri) 7SET UP SIZE TO SEND 
022552 737 013654 CALL CHK zFORM CHECKSUM R1=COUNT 
022556 010110 MOV oa eROD SINSERT IN PACKET 
022560 012701 000200 MOV #128. ,R1 sSET EXPECTATIONS: 
sCALC # OF ie PACKETS TO EXPECT 
22564 012703 000034 MOV #XSFLG,R3 SOFFSET OF FLAG 
022570 0503 ADD R5,R3 Fs - ADDR. OF XSFLG 
022572 005002 CLR :P 
022574 00520 83$: INC *# PACKETS EXPECTED 
022576 012723 000001 MOV Re SDATA, (R3)+ LOAD XSFLG 
022602 012723 000204 MOV #132.,(R3)+ SAND EXPECT COUNT 
22606 162701 000200 SUB 28.,R1 [NEG RESULT LAST TIME 
022612 101401 BLOS [LAST TIME! 
022614 000767 BR 83$ [MORE T 
022616 00520 85$: INC R2 *ADD ONE FOR END PACK 
22 010265 000032 MOV R2.XSPKNM(RS) SAVE # PACKETS TO EXPECT 
022624 012723 000002 MOV WRSEND,(R3)+  :EXPECT AN 
022630 012713 000016 MOV arene? (R3) :THIS BIG-14. BYTES 
022634 004737 006560 CALL RSVP SEND 
SAND RETURN TO SCHEDULER 
3668 022644 062704 909002 ADD #2,R4 :POINT TO NEXT DATA 
9 022650 005764 02274 TST TST3PT(R4) s END? 
3670 022654 00140 BEQ 2$ YES 
3671 022656 000137 021432 JMP 1$ *NO-WRITE, READ NEW DATA 
3672 022662 005004 2$: CLR R4 ;POINT TO FIRST DAT 
3673 022 062765 001000 000064 ADD #1000, REC(RS) NOW USE ADJACENT RECORD 
573 9 3105 050768 004000 000064 BIT #4000 ,REC(RS) :ALL ADJACENT RECORDS DONE? 
6 02 702 006 02143 JMP 1$ *NO-WRITE, READ AT NEW RECORD 
162765 3$: SUB #4000,REC(R5) RESTORE f0 NEXT RECORD 
ma Gare tees Ganges SOC EFS ECO TB BRP tal wt rr 
3680 022726 103402 BCS 4$ : 
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SECTIONS MACR 
TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) SEQ 0104 
10 137 021432 JMP 1$ :NO 
! FR 05 3 003323 4$: INC DONE 2 YES-SET FLAG 
740 000207 RETURN 
02274 TST3PT: .WORD 999 
5 022744 125 - WORD \§ 
02 038 17777 «WORD 17777 
7 022750 052525 «WORD 052525 
; 022752 000000 -WORD 000000 
3690 
3691 022754 ENDTST 
02275 


110017: 
TRAP 


022754 104401 CSETST 
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TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) SEQ 0105 
94 
3695 .SBTTL TEST 5 / WRITE SELECTED NUMBER OF BLOCKS 
3697 022756 BGNTST 
08 756 TS:: 
3698 022756 iSTID «= #TSTS | 
02 756 012737 23022 003326 MOV WTSTS,TSTTOP | ;SAVE ADDR OF TEST 
0 764 737 4 CALL SETUP SINIT UNITS TSTPC 
022770 004737 0056 CALL = SETDR *GET 1ST DRVS. 
02 774 004737 00603 CALL = RUN ‘D0 TEST 
0 004737 00553 CALL  SWAPDR [GET NEXT DRVS. 
023004 103 BCC 64$ *BR NO § 
02 098 0047 7 006 CALL SETUP sREINIT UNITS TSTPC 
023012 004/37 006052 CALL RUN [REPEAT TEST 
023016 64$: ‘DONE 
3699 023016 EXIT TST 
023016 104432 TRAP CSEXIT 
- 023020 000724 .WORD 110020-. 
370 
3702 023022 005065 ooonss TSTS: CLR REC(RS) sSTART AT REC 0 
3703 023026 013765 003310 000066 MOV TAPLEN, TMP(RS) ;GET THE # OF BLOCKS PER TRACK 
3704 023034 005065 000062 CLR TRK(R *TRK(R5)=1ST OR 2ND PASS COUNTER 
3705 025040 916565 900 000072 18: MOV REC(R5) ,PATTEN(RS) ;USE RECORD NO. FOR DATA 
3706 023046 005737 002220 TST DRVCHK zADD DR #? 
3707 023052 001403 BEQ 10$ NO 
3708 023054 066565 000060 000072 ADD DR(RS) ,PATTEN(RS) *YES, ADD DRIVE ID 
3709 023062 10$:  TUWRIT PATTEN(RS) REC (RS) #512. .DR(RS) ,AO 
023062 012700 027722 72$: MoV ATRBUF ,RO :MAKE COMMAND PACKET: 
023066 112710 900002 MOVB = #RSCMND, aRO [COMMAND FLAG 
023072 112760 000012 000001 MOVB #RSMSIZ.1(RO) :THIS SIZE 
023100 112760 000003 000002 MOVB #RSSWR,2(RO) INSERT OP CODE-WRITE 
023106 112760 000000 000003 MOVB = #0,3.(RO) *VERIFY (1 OR 0) 
023114 116560 000060 000004 MOVB  ODR(R5),4.(RO) DRIVE # 
023122 112760 000020 000005 MOVB #020,5. (RO) [MAINTENANCE MODE SWITCH 
023130 005060 000006 CLR 6.(R NO 
023134 012760 001000 000010 MOV #512..8.(RO) | :TOTAL COUNT TO WRITE 
023142 016560 000064 000012 MOV REC(R5).10.(RO) :AT RECORD N 
023150 012701 000012 MOV #RSMS1Z.R1 STHE PACKET SIZE PLUS+2 
023154 005721 TST (R1)+ “(FLAG AND COUNT) INTO R1 
023156 012765 000016 000070 MOV WRSSNSZ,SNDCNT(R5) ;LOAD THE SIZE TO SEND 
023164 004737 013654 CALL HKSUM 3RO ==> R1=COUNT 
023170 010110 R1, (RO) :PUT CHKSUM IN PACKET 
“SET UP EXPECTATIONS: 
023172 012765 000020 000034 MOV WRSCONT,XSFLG(RSS ;THE FLAG 
23200 012765 000001 000036 MOV #1,XSCNT(R5S) | THE COUNT 
023206 012765 000001 000032 MOV #1-XSPKNM(R5) THE # PACKETS EXPECTED 
023214 912708 001 MO #512. ,R2 sGET # OF DATA BYTES 
23220 004737 00656 CALL vP :SEND (AND RETURN TO SCHEDULER) 
0232 4 052715 000010 BIT 1T3,aR5 :FLAG BYTE ERROR? 
093032 3713 10 0 BIC #B1T12,aR5 [FLAG FOR LAST PACKET 
023, 36 12700 027722 64$: MOV #TRBUF .RO SPOINT TO TOP OF BUFFER AGAIN 
02324 20 27 000200 CMP R2,4126. SSTART DATA PACKET(S) 
025246 101 BHI & 7#512. > 128.! 
02325 919201 MOV R2,R1 7#512.<128. 
023252 052715 010000 BIS #B81T12,aR5 ?S0 LAST PACKET NOW 
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TEST 5 / WRITE SELECTED NUMBER O SEQ 0106 
02 256 BR 66$ :USE R MAINING COUNT 
9 60 012701 000200 65$: MOV #128. 8 SUSE 128. BYT 
6 110160 000001 66$: MOVB Sab : COPY Y COUNT TO Spur FER 
0 9 01010 MOV SR3=COUNTER TO LOAD BUFFER 
023272 112710 000001 MOVB Mitta, aro SFLAG FIRST 
023276 00 £20 TST :SKIP COUNT 
023 1165 9 000072 67$: Move PATTEN(RS), (RO)+ y INSERT DATA 
023 00530 DEC RS :MORE? 
023 10137% BHI 67$ YES 
0 3 10 012700 027722 MOV ATRBUF ,RO ;=->TOP AGAIN 
02 314 116001 007 -  MOVB RO) Rl COUNT 
025 20 042701 177400 BIC #1776600,R1 :ZERO SI SIGN EXTEND 
023324 010165 000070 MOV R1,SNDCNT(RS) | :HOW MANY TO SEND PLUS 
023330 062765 000004 000070 ADD #4. SNDCNT(R5) FLAG, COUNT, CHKS 
023336 062701 000002 ADD #2 Ri : COMPENSATE FOR FLAG + COUNT 
023342 004737 013654 CALL  CHKSUM [FOR CHECKSUM CALC. 
023346 110120 MOVB R71, (RO)+ SCHKSUM INTO PACKET 
023350 000301 SWAB séRT ieVEN AN ODD 
923352 110120 MOVB = R71, (RO)+ [BYTE BOUNDARY 
023354 052715 010000 ei! wgitie, ars ;LAST DATA PACKET? 
023362 O12765 000002 000034 MOV ARSEND XSFLG(RS). i YES“EXPECT "END' 
023370 012765 000016 000036 MOV #RSNDSZ,XSCNT (RS) § SIZE 
023376 012765 000001 000032 MOV #1 MOS etRe) be ‘ PACK eer 
23404 000411 BR 69 SEND 
23406 012765 000020 000034 68$: MOV ARSCONT XSFLG(RSS> :(NOT LAST), EXPECT ‘CONTINUE’ 
023414 012765 900001 000036 MOV #1,XSCNT(RS) | :AND 1 BYTE 
023422 012765 000001 000032 MOV #1.XSPKNM(RS) AND 1 PACKET 
023430 004737 006560 698: CALL RSVP : SEND. PACKET 
SAND RETURN TO SCHEDULER 
23434 032715 000010 BIT #31T3,aR5 “FLAG BYTE RETRY? 
023440 901210 BNE 7 :Y 
023442 032715 002000 BIT #81T10,aR5 [RETRY DATA ERROR? 
023446 001004 BNE : 
023450 162702 000200 SUB #128. .R2 [NO, MORE DATA TO SEND? 
023454 101270 BHI 4 YES 
023456 000502 BR 1$ NO 
023460 70$:  TURTRY REC(RS).#512.,DR(R5) § ;RETRY HERE 
023460 012700 02772 76$: MOV ATRBUF ,RO :FORM CMND PACK: 
023464 112710 00000 MOVB ,aRO *MESSAGE PACK TYPE 
023470 112760 12 000001 MOVB #RSMSIZ,1 (RO) [THIS BIG 
76 112760 008 MOVB  #RSSRD,2(RO) : OP CODE-READ 
504 016360 01 MOY REC(RSS,.10.(RO) :THIS RECORD 
3312 165 900060 04 MOVB DR R(R5) ,4. (RO) sTHIS DRIVE 
023520 10 060 00 CLRB (RO) PRESET NORM THRESHOLD 
0635 4% 10571 TSTB ss RS * REDUCED? 
35 100008 L 77$ : 
335 105 3 INCB —-:3(RO) *YES=CHANGE THRESHOLD 
3534 012760 001000 000010 77$: MOV #512..8.(RO) 2 BYTES DESIRED 
0 3548 1127 20 000005 : mMOVB #020.5. (RO) imAIN NTENANCE MODE 
02355 CLR 6. (RO) SEQUENC 
6 236 aay : mer Yai size E Plage SOON INTO R1 
b53e05 12765 000016 000070 MOV #RSSNSZ, SNDCNT(REDC” SET UP SIZE TO SEND 
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ELECTED NUMBER OF B 
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SEQ 0107 
CALL § CHKSUM :FORM CHECKSUM R1=COUNT 
MOV R1, (RO) S INSERT IN PACKET 
MOV #512.,R1 :SET EXPECTATIONS: 
:CALC # OF DATA PACKETS TO EXPECT 
MOV #XSFLGAR3 SOFFSET OF FLA 
ADD R5,R ZABS ADDR. OF XSFLG 
INC R *# PACKETS EXPECTED 
MOV #RSDATA (R3)+ LOAD XSFLG 
MOV .. (R3)+ SAND EXPECT COUNT 
SUB 128.,R1 NEG RESULT LAST TIME 
BLOS 75 ‘LAST TIME! 
BR 73$ SMORE T 


Re tADD ONE FOR END PACK 

MOV R2,XSPKNM(RS)  :SAVE # PACKETS TO EXPECT 
MOV WRSEND, (R3)+  SEXPECT 

MOV #RSNDSZ,(R3) THIS piewla, BYTES 


CALL RSVP 3 SEND 
3AND RETURN TO SCHEDULER 


3D0 ALL_RECORDS ‘Sy THIS TRACK? 
:YES-GET OTHER TRACK 

ZNO-ONTO NEXT RECORD 

3EXECUTE THE WRITE 
;DONE 2 TRACKS? 


; YES~EX 
3NO-SET FLAG FOR NEXT PASS 
3GET NEW STARTING BLOCK # 
gRESET # OF BLOCKS 
AND EXECUTE 


RETURN 


L10020: 
TRAP CSETST 
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25-FEB-82 07:06 PAGE 111 
CKS 


.SBTTL TEST 6 / READ SELECTED NUMBER OF BLOCKS 
BGNTST 
TSTID #TST6 


68$: MOV #TRBUF RO 


MOVB = #RS 

MOVB  &#RSMSIZ 
MOVB  #RSSRD 
MOV REC(RSS,1 
MOVB  ODR(RS),4. 
MOVB “9 ~ (RO) 
MOV #512. ,8.¢ 
move #020.5.(R 


R1, (RO) 


MOV #512. ,R1 
MOV SySFLG-RS 
R5,R 


64$: INC 
MO 
MOV #1 


66$: INC Re 


10$ : 
ADD DR(RS),.PATTEN(RSS ;:ADD IN DRIVE ID 
10$:  TUREAD REC(R5S,#512. ,.DR(RSS #0 


R 
#RSDATA, (R3)+ 
; + (Ra)* 


SEQ 0108 


Té6:: 


MOV #TST6,TSTTOP sSAVE ADDR OF TEST 
CALL SETUP sINIT UNITS TSTPC 
CALL SETDR 3GET_1ST DRVS. 
CALL RUN : ST 
CALL SWAPDR 3GET NEXT DRVS. 
BCC 64$ 2BR 
CALL SETUP sREINIT UNITS TSTPC 
CALL RUN sREPEAT TEST 
648: 3 DONE 
EXIT TST 
TRAP CSEXIT 
«WORD 1L10021-. 
TST6: CLR REC(RS5) sSTART AT REC 0 
MOV TAPLEN, TMP(RS) ;GET THE # OF BLOCKS PEi: TRACK 
CLR TRK(R sTRK(R5)=1ST OR 2ND PA 
1$: MOV REC(R5) ,PATTEN(R5) ;USE RECORD NO. AS DATA 
pe DRVCHK sADD DR #? 


3FORM CMND PACK: 
sMESSAGE PACK TYPE 


sTHIS BIG 

20P CODE IS READ 
THIS RECORD 

sTHIS DRIVE 

sVERIFY 

TOTAL BYTES TO READ 
ett MODE 


sNO_SEQUENCE # 
3GET SIZE OF PACKET 


+ *+2 FOR CK 
MOV #RSSNSZ.SNDCNT(RS)  2SIZE TO SEND 


sFORM CHECKSU% R1=COUNT 
z INSERT CHECKSUM 


sSET EXPECTATIONS: 
sCALC # OF DATA PACKETS TO EXPECT: 
[GET OFFSET 
[ABS. ADDR. OF XSFLG 


PRE 
34 ee 1h EXPECTED 
AND EXPECTED COUNT 


3NEG_RESULT LAST TIME 
sLAST TIME 
sMORE TO DO 

sADD ONE FOR END PACK 
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TEST 6 / READ SELECTED NUMBER OF B SEQ 0109 
0 4222 on 26 00003 MOV R2,XSPKNM(RS) ;SAVE # PACKETS TO EXPECT 
4 $ 12723 00000 MOV #RSEND,(R3)* § :EXPECT AN END ALSO... 
024 01071 000016 MOV #RSNDSZ, (R5) 3THIS B1G-14. BYTES 
024 00473 5 CALL RSVP 
* AND RETURN TO SCHEDULER 
924242 032715 002010 67$: BIT #B1T10:B1T3, ars RETRY? 
024246 001500 BEQ 
024250 TURTRY gE cas) #512. DRERSD YES 
024250 012700 027722 72$: MOV #TREUF ;FORM CMND PACK: 
024254 112710 00000 MOVB Reb on *MESSAGE PACK TYPE 
$525¢0 112760 000012 000001 MOVB ARSAOIZ 1 (ROD STHIS B16, 
024266 112760 00000 900002 MOVB D,2(RO) OP CODE-READ 
024274 016560 000064 00001 MOV are eres 10. (RO) : THIS RECORD 
024302 116560 000060 000004 MOVB —DR(R5) ,4. (RO) :THIS DRIVE 
024310 105060 000003 CLRB  —-3(RO) PRESET NORM THRESHOLD 
024314 10571 TSTB «RS = REDUCED? 
024316 100002 BPL 73$ : 
24320 1032 000003 INCB = 3(RO) " YES=CHANGE THRESHOLD 
024324 O12 60 001000 000010 73$: MOV #512.,8.(RO)  \:# BYTES DESIRED 
024332 112760 000020 000005 MOVB #0620.5.(RO) | - :MAINTENANCE MODE 
024340 005060 CLR 6. (RO) :NO SEQUEN CE # 
24344 012701 00001 MOV ARSMSIZ,R1 SIZE OF ACKET 
024350 005721 TST (R1)+ US FLAG+COUNT INTO R1 
024352 012765 000016 000070 MOV ARSSNSZ,SNDCNT(R5) :SET UP SIZE TO SEND 
024360 004737 013654 CALL ‘CHK sFORM CHECKSUM R1=COUNT 
024364 010110 MOV ST tROD SINSERT IN PACKET 
024366 012701 001000 MOV #512.,.R1 - >SET EXPECTATIONS: 
ALC # OF DATA PACKETS TO EXPECT 
024372 012702 000034 MOV a ‘oP re SET OF FLAG 
024376 060503 ADD TABS. ADDR. OF XSFLG 
024400 00500 CLR :PRESE 
024402 00520 69$: INC :# PACKETS EXPECTED 
024404 0 23 000001 MOV Re SDATA (R3)+ LOAD XSFLG 
024410 012723 000204 MOV #132. (R3)* :AND EXPECT COUNT 
024414 162701 000200 SUB #128..R1 NEG RESULT LAST TIME 
024420 101401 BLOS 6 718 3LAST TIME! 
024422 000767 BR 69$ ; 
024424 905202 71$: INC . SADD ONE FOR END P 
0244 01026 000032 MOV R XSPKNA(RS) SSAVE # PACKETS 10. EXPECT 
0244 12723 000002 MOV ND,(R3)+ EXPECT AN END 
024436 012713 000016 MOV oRenDSS. (R3) THIS BIG-14. BYTES 
024442 004737 006560 CALL RSVP SEND 
SAND RETURN TO SCHEDULER 
741 024452 005365 000066 DEC TMP(RS) :D0 ALL RECORDS THIS TRACK? 
742 0264 1404 BEG 2s SYES-GET OTHER TRACK 
74 5265 INC REC(RS) [NO-NEXT RECORD 
7h 4464 9001 7? 0240 0 JMP 1$ TEXECUTE THE READ 
745 4470 00 765 2s: TST TRK(RS) [DONE 2 TRACKS? 


rte oes Obnoes eve Tre ESET TLAG FOR NEXT PASS 
rte P5es0o BT arEs boseee 000066 MOV —sSECREC.REC(RS) GET NEW STARTING BLOCK # 
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TEST 6 / READ SELECTED NUMBER OF BLOCKS SEQ 0110 
749 024510 0137 3 3310 000066 MOV TAPLEN,TMP(RS5) ;RESET # OF BLOCKS 
750 024 8 1 4 3 MP 1$ sAND EXECUTE 
ey 4 § 3 7 003 TST6EX: INC 3 DONE 
036 024526 000207 RETURN ;RETURN 
754 0o4 338 ENDTST 
0245 L10021: 
024530 104401 TRAP CSETST 


4 9 
MISCELLANEOUS SECTIONS MACRO M1113 gs # 07:06 PAGE 113 
TEST 7 / WhITE-VERIFY SELECTED NUMBER OF BLOC SEG 0111 


730 .SBTTL TEST 7 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 
738 0245 BGNTST 
9 45 17:: 
3760 0245 TSTID #TST7 
45 0127 7 024576 003326 MOV ATST7,TSTTOP § ;SAVE ADDR OF TEST 
454 737 CALL SETUP INIT UNITS TSTPC 
4544 737 6 CALL SETOR 3GET 1ST DRVS. 
024550 737 3 CALL = RUN TEST 
9 4554 737 5 CALL § SWAPDR GET NEXT DRVS. 
4560 10 Bcc 64$ :BR NO 2ND DRVS 
024562 9047 7 CALL SETUP SREINIT UNITS TSTPC 
024 737 006052 CALL [REPEAT TEST 
9 45 648: [DONE 
3761 02457 EXIT TST 
024572 104432 TRAP  CSEXIT 
024574 000724 .WORD 110022-. 
ree 
764 02457 005065 TST7: CLR REC(RS) sSTART AT REC 0 
765 024602 013765 003310 000066 MOV TAPLEN, TMP(RS) 3GET THE # OF BLOCKS ope TRACK 
766 02461 5065 000062 CLR TRK (RS K(R5)=1ST OR PASS 
67 024614 16565 900064 000072 1$: MOV REC (RS) .PATTEN(RS? piUSe fee CORD NO. FOR DATA 
768 024622 005737 002220 TST DRV 
769 024626 001403 BEQ nos D 
770 024630 066565 000060 000072 ADD DR(RS) ,PATTEN(RSS ZADD DRIVE ID 
771 024636 10$:  TUWRIT OA TTENCRS) REC (RS) A512. ,DRIR )»,#1 
024636 012700 027722 728: #TRBUF ,RO MAKE COMMAND PACKET: 
4642 112710 00000 MOVE ARSCMND , aRO :C FLAG 
Bhbus 112760 000012 000001 MOVB  #RSMSIZ.1(RO) :THIS SIZE 
024654 112760 00000. 900002 MOVB  #RSSWR,2(RO) 3 INSERT OP CODE-wWRITE 
4662 112760 000001 00 MOVB #13. (RO) S VERIFY (1 OR 0) 
024670 116560 000060 MOVE oRiRsy 4. (RO) DRIVE # 
4676 112760 900020 000005 MOVB #020 5. RO) ;MAINTENANCE MODE SWITCH 
4704 005060 CLR 
024710 o127 1000 000010 MOV gs 13.8 (RO) TOTAL COUNT To WRITE 
024716 0165 000012 MOV REC (RS). “10. (RO) :AT RECORD 
0 4726 012701 12 MOV #RSMS12Z [THE PACKET SIZE PLUS+2 
024 005721 TST (R1)+ FLAG AND ) INTO R1 
0 4732 012765 16 000070 MOV Hi soomudt 3LOAD THE SIZE TO SEND 
024740 004737 prose CALL = CHKS > R1=COUNT 
4744 010110 MOV R1, (RO) Ave HKSUM IN PACKET 
¢SET a. EXPECTATIONS: 
024746 1 765 0 000034 MOV BRSCONT coy LAG 
024754 0127 1 900056 MOV #1 .XSCNTC ob 
0247 12765 1 00003 MOV ‘THE @ PACKETS EXPECTED 
024 1 Q 1000 MOV {2., # OF DATA BYTES 
024774 7 60 CALL RSVP SEND (aD RETURN TO SCHEDULER) 
0 3000 eri 10 BIT a 1T3,@R5 :FLAG BYTE ERROR 
5 15 01 BIC #81T12,aR5 FLAG FOR LAST PACKET 
5012 01 700 64$: MOV #TRBUE RO :POINT TO TOP OF BUFFER AGAIN 
301 ! 2 CAP os 26. ore Pye 
5024 010201 MOV R2,R1 <128. 
50, 52715 010000 BIS #BiT12,aR5 283" Cast PACKET NOW 
50 02 BR 66 SUSE REMAINING COUNT 
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FY SELECTED NUMBER OF BLOCKS 
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SEQ 0112 


#128. ,R1 sUSE 128. BYTES 
1,1¢R0) [COPY COUNT TO BUFFER 

*R3=COUNTER TO LOAD BUFFER 
#RSDATA,@RO TFLAG FIRST 


SKIP COUNT 
PATTEN(RS) , (RO) + , 3 INSERT DATA 


$ i 

ATRBUF RO t==>TOP AGAIN 

1(RO) RI :GET COUNT 

#177460,R1 tZERO SIGN EXTEND 

R1,SNDCNT(RS) :HOW MANY TO SEND PLUS 

#4,SNDCNT(R5) FLAG, COUNT, CHKSUM 

#2,R1 > COMPENSATE FOR FLAG + COUNT 

CHK SUM [FOR CHECKSUM CALC. 

R1, (RO)+ SCHKSUM INTO PACKET 
[EVEN ON AN ODD 

R1 (RO) [BYTE BOUNDARY 

weit ars [LAST DATA PACKET? 


ARSEND,XSFLG(RS) ;YES-EXPECT ‘END* 
#RSNDS2,XSCNT(RS) :OF THIS SIZE 

#1 .XSPKNACRS) ZAND 1 PACKET 

ARSCONT,XSFLG(RSS : (NOT LAST), EXPECT ‘CONTINUE’ 
#1,XSCNT(RS) | AND 1 BYTE 

#1.XSPKNM(RS) AND 1 PACKET 

RSVP "SEND PA 


; CKET 
URN TO SCHEDULER 


SAND RET 
1T3,aR5 ZFLAG BYTE RETRY? 
#81710, aR5 [RETRY DATA ERROR? 
#126. .R2 :NO, MORE DATA TO SEND? 
YES 


1$ : 

REC(RS),#512.,.DR(R5) = RETRY HERE 
RBUF ,RO :FORM CMND PACK: 

ARSCMND , @RO [MESSAGE PACK TYPE 


DRIV 
3PRESET NORM THRESHOLD 
; REDUCED? 


77$ 3NO 
3(RO) SYES=CHANGE THRESHOLD 
¥512.,8.(RO)  :# BYTES DESIRED 
#020,5. (RO) [MAINTENANCE MODE 
6. (RO) : QUENCE # 
#RSMS1Z,R1 SSIZE OF PACKET 

) S FLAG+COUNT INTO R1 


(R1)+ “PLU 
#RSSNSZ,SNDCNT(R5) SET UP SIZE TO SEND 
CHKSUM :FORM CHECKSUM R1=COUNT 








TEST 


OI See Lae SECTIONS MACRO M1113 ort Ee ees 07:06 PAGE 113-2 


025350 
025352 


SRRSRSE SOS 


SCOooooooooo 
PUPVSVSUPUSVSVSIS 


vw 
ee 
—_ 


37 Oo atte 


Hs 025512 

783 025516 

784 

3785 025520 
025520 
025520 


010110 

012701 

01270 
503 


/ 


/ WRITE-VERIFY SELECTED NUMBER OF BL 


TST7EX: 


73$: 


75$: 


R1, (RO) 

#512. ,R1 

#XSFLG.RS 

R5,R 

R 

ARSDATA, (R3)¢ 

#1 g.(R3)+ 
128..R1 


ee 


ne. XSPKNM(RS) 
ARSEND, (R3)¢ 
onenpe? (R3) 


RSVP 


SEQ 0113 
s INSERT IN PACKET 


:SET EXPECTATIONS: 
:CALC # OF DATA PACKETS TO EXPECT 
;OF FSET OF FLAG 
S. ADDR. bF XSFLG 


?PRE 

3a PACKETS EXPECTED 
;LOAD XSF LS 

AND EXPECT COUNT 
NEG eT LAST TIME 


zADD ONE FOR END PACK 
3SAVE # PACKETS TO EXPECT 
sEXPECT AN END 
sTHIS BIG-14. BYTES 
+ 

AND RETURN TO SCHEDULER 


3D0 ALL_RECORDS FOR THIS TRACK? 
3 YES~GET 20 TRACK 


ZNO-NEXT RECORD 
SEXECUTE THE WRITE 
;DONE 2 TRACKS? 


s YES-E 
3NO=SET FLAG FOR NEXT PASS 


GET NEW 


STARTING 


;RESET # OF BLOCKS 
AND EXECUTE 


?RETURN 


BLOCK # 


L10022: 


TRAP CSETST 
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TEST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 


9 





SEQ 0114 


Ht .SBTTL TEST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 
79) 02552 BGNTST 
0255 T8:: 

3791 0255 TSTID #TST8 
0255 012737 025566 003326 MOV ATST8,TSTTOP  ;SAVE ADDR OF TEST 
025530 004737 04 CALL = SETUP SINIT UNITS TSTPC 
025534 004737 0056 CALL SETDR 3GET 1ST DRVS. 

025540 004737 00605 CALL RUN EST 

025544 004737 00553 CALL § SWAPDR <GET NEXT DRVS. 
025550 103004 BCC 64$ [BR NO 2ND DRVS 
025552 of 006 CALL SETUP sREINIT UNITS TSTPC 
025556 004737 006052 CALL RUN *REPEAT TEST 
025562 64$: : 

3792 02556¢ EXIT TST | 
025562 104432 TRAP CSEXIT 
025564 000520 .WORD 110023-. 

ie 

3795 025566 005065 000064 TST8: CLR REC(RS) sSTART AT REC 0 

3796 025572 013765 003310 000066 MOV TAPLEN, TMP(R5) GET THE ', OF BLOCKS PER TRACK 

3797 025600 005065 000062 CLR RK(R5)=1ST OR 2ND PASS 

3798 025604 016565 000064 000072 1S: MOV REC(RS) -PATTEN(RS) sUSE RECORD NO. FOR DATA 

3799 025612 005737 002220 TST DRVCHK ZADD DR #? 

3800 025616 001403 BEQ 1 NO 

3801 025620 066565 000060 000072 ADD DR(RS) PATTEN(RSS ZADD DRIVE ID 

3802 025626 10$: | TUREAD REC(R55,#512.,DR(RS) #1 
025626 012700 027722 68$: MOV ATRBUF ,RO :FORM CMND PACK: 
025632 112710 000002 MOVB #RSCMND, aRO SMESSAGE PACK TYPE 
025636 112769 000012 00000 MOVB  #RSMSIZ.1(RO) THIS BIG 
025644 112760 000002 000002 MOVB #RSSRD,2(RO) OP CODE IS READ 
025652 016560 000064 000012 MOV REC(R55.10.(RO) :THIS RECORD 
025660 116560 000060 000004 MOVB (R5),4.(RO)  :THIS DRIVE 

25666 112760 000001 000003 MOVB 1 3. (RO) VERIFY 
025674 012760 001000 000010 MOV #512.,8.(RO) | :TOTAL BYTES TO READ 
0 5708 112760 000020 000005 MOVB 020.5. (RO) SMAINTENANCE MODE 
025710 005060 000006 CLR 6. (RO) [NO SEQUENCE # 
025714 012701 000012 MOV #RSMS1Z,R1 :GET SIZE OF PACKET 
025720 005721 TST (R1)4 +2 FOR CHECKS 

33728 012765 900016 000070 MOV #RSSNSZ, SNDCNT(R5) :SIZE TO SEND 

5 004737 013654 CALL © CHKSUM CHECKSUM R1=COUNT 
025734 010110 MOV R1, (RO) SINSERT CHECKSUM 
025736 012701 001000 MOV #512.,R1 ie gSET EXPECTATIONS: ead 
025742 012703 000034 MOV #XSFLG.RS GET 
025746 06050 ADD R5,R TABS. ADDR. OF XSFLG 
025750 00500 CLR ‘PRESET AS NONE 
025752 00520 64$: INC R a PACKETS EXPECTED 
025754 01 001 MOV #RSDATA (R3)* = SL 
025760 0127, 204 MOV )+ tUND EXPECT ED C 
025764 162701 200 SUB a [NEG RESULT LAS TIME 
028778 69076? BR gas LAST Ti 
025774 b0S2 2 66$: INC R2 SADD ONE FOR END PACK 
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TEST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS SEQ 0115 


1 199 00003 MOV XSPKNM(RS) SAVE # PACKETS TO EXPECT 
00000 MOV aRSEND END,(R3)+  ;EXPECT AN END ALSO... 
B5e00 o1871 900016 MOV Sipe (R3) THIS B1G-14. BYTES 
02601 006560 CALL ave ND 
AND RETURN TO SCHEDULER 
026016 032715 002010 67$: BIT #91710:8173, ars PRETRY ? 


60 15 BEQ 
03 54 pei TURTRY REC(RS) W512. ,DRRS 7 YES 




















026024 01 027722 72$: MOV ATRBUF ,RO :FORM CMND PACK: 
026030 112710 900002 MOVB = #RS [MESSAGE PACK TYPE 
026034 112760 000012 000001 MOVB  &#RSMSIZ.1(R0)  :THIS BIG 

026042 112760 000002 00000 MOVB  #RSSRD,2(RO) :O0P CODE-READ 

026050 016560 000064 00001 MOV REC(R5S,.10.(RO) :THIS RECORD 

926056 116560 000060 000004 MOVB OR(R5),4.(RO)  :THIS DRIV 

026064 105060 000003 CLRB = 3(RO) [PRESET NORM THRESHOLD 
026070 105715 TSTB = ARS REDUCED ? 

026072 100002 BPL 

026074 105260 000003 INCB 3(R0) SYES=CHANGE THRESHOLD 
026100 012760 001000 000010 73$: MOV #512.,8.(RO) 24 BYTES DESIRED 

026106 112760 000020 000005 move #020,5. (RO) SMAINTENANCE MODE 


060 000006 CLR 6. (RO) NO SEQUENCE ¥ 


So 
nN 
Oo 
_ 
Nm 
°o 
S28 
rmouMnruir 


701 000012 MOV #RSMSIZ.R1 i SIZE OF P ACKET 
026124 721 TST (R LUS FLAG+COUNT INTO R1 
026126 012765 000016 000070 MOV ARSSNSZ. snpenT (Ri) 3SET UP SIZE TO SEND 
026134 004737 013654 CALL CHK :FORM CHECKSUM R1=COUNT 
026140 010110 MOV oa eROD SINSERT IN PACKET 
026142 012701 001000 MOV #512.,R1 SET EXPECTATIONS: 

sCALC # oF DATA PACKETS TC EXPECT 
026146 012703 000034 MOV #XSFLG,R3 [OFFSET OF FLAG 
026152 060503 ADD R5,R3 tABS. ADDR. OF XSFLG 
026154 005002 CLR R2 [PRESET 
026156 00520 69$: INC R2 [# PACKETS EXPECTED 
26160 012723 000001 MOV ARSDATA,(R3)+ LOAD XSFLG 
026164 012723 000204 MOV #132. (R3)* SAND EXPECT COUNT 
026170 162701 000200 SUB #128. .R1 [NEG RESULT LAST TIME 
026174 101401 BLOS zis [LAST TIME! 
026175 000767 BR [MORE T 
026200 00520 71$: ‘INC Re SADD ONE FOR END PACK 
926202 010265 000032 MOV R2,.XSPKNM(RS) :SAVE # PACKETS TO EXPECT 
Ocoe06 012723 000002 MOV RaSEND (R3)+ 3: T AN END 
026212 012713 000016 MOV WRSNDS2,(R3) : THIS B1G-14. BYTES 
026216 004737 006560 CALL RSVP SEND 
SAND RETURN TO SCHEDULER 

3803 026226 005365 000066 DEC TMP(R5) :D0 ALL RECORDS THIS TRACK? 

3804 026232 001404 BEQ i VES-GET OTHER TRACK 

3805 026234 005263 900064 INC REC(RS) “NO-NEXT RECORD 
026240 000137 0256 JMP 1$ SEXECUTE THE READ 

3807 0 6244 005765 062 2$: TST TRK(RS) [DONE 2 TRACKS? 

3808 026 001 le BNE TSTBEX iy - 

3809 26252 00526 900062 INC TRK(R5) O-SET FLAG FOR NEXT PASS 

10 026256 013765 003334 000064 MOV SECREC ,REC(RS) RET NEW STARTING BLOCK # 
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ST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 


11 026 a S018 o7380s 000066 MOV TAPLEN, TMP(RS) ;RESET # OF BLOCKS 
12 026 026 JMP 1$ :AND EXECUTE 
13 026 005237 8638 22 TST8EX: INC DONE : 
3814 026 RETURN RETURN 
026304 104401 


TRAP 


CSETST 


SEQ 0116 


( 
4 
‘s 
( 
f 
{ 
( 
( 
| 
| 
| 
| 
| 
| 
| 
| 
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( 
TEST 9 / TESTS MODIFIED RADIAL SERIAL PROTOCOL SEQ 0117 : 
03 .SBTTL TEST 9 / TESTS MODIFIED RADIAL SERIAL PROTOCOL 
1 026306 BGNTST ¢ 
T9:: ‘ 
3558 3 026306 012737 026330 003326 MOV #TST9,TSTTOP SAVE ADDR OF TEST ( 
004737 006004 CALL SETUP SINIT UNITS TSTPC ¢ 
33 026320 004737 006052 CALL RUN 200 TEST 
3859 ° ( 
Eee ee Tee 10443 cong: ' CSEXIT 
ane 026326 ites) .WORD 110024-. ' 
3830 026330 012737 000001 003342 TST9: MOV #1, TESTS sINDICATES 1ST PART OF TST 8 
3831 026336 912700 02772 64$: MOV #TRBUF ,RO 3FORM COMMAND PACKET ( 
3832 026342 112710 MOVB = #RSCMND,aRO ( 
3833 026346 112760 000012 000001 MOVB #RSMSIZ.1(RO)  :SIZé OF MESSAGE ( 
3834 026354 112760 90001¢ 000002 MOVB &#RSSGET.2(RO) :GEL CHARACTERISTICS ( 
3835 026362 105060 00000 CLRB = 3(RO) =NO MODI ( 
3836 026366 005060 000004 CLR 4(RO) =NO DRIVE OR SWITCHES ( 
3837 026372 005060 CLR 6(RO) [NO SEQUENCE NUMBER ( 
3838 026376 005060 000010 CLR 8. (RO) ‘NO BYTES ( 
3839 026402 005060 000012 CLR 10. (RO) =NO RECORD # ( 
3840 026406 012701 000012 MOV #RSMS1Z,R1 GET SIZE ( 
3841 02641 005721 TST (R1)+ +2 FOR CHECKSUM ( 
3842 026414 012765 16 000070 MOV #RSSNSZ, SNDCNT(R5) oie TO SEND ( 
3843 026422 004737 013654 CALL CHKSUM :FO cH ECKSUM ( 
3844 026426 010110 MOV R17, (RO) INSERT INTO PACKET 
3845 0264 915763 000001 000034 MOV #RSDATA, XSF FLGCRSS sEXPECT DATA PACKET 
026436 012765 000034 000036 MOV #RSGCDP.XSCNT(R5) :THIS B ( 
3847 026444 012765 000001 000032 MOV #1 SRSPKNMCRS) zAnb 1 PACKET | 
3849 026452 004737 006560 CALL RSVP SRETURN TO SCHEDULER 
3851 026456 004737 014010 CALL  DOBRK :CLR POTENTIAL INTERFACE ERROR ( 
3853 026462 032715 000010 BIT #B1T3,aR5 ;RETRY?(BAD FLAG) ( 
3854 026466 001323 BNE 645 :YES ( 
3856 026470 012737 000002 003342 MOV #2, TESTS ZINDICATE 2ND PART OF TST 8 ( 
3858 026476 012700 02772 65$: MOV #TRBUF ,RO :-=>(POINT TO) XMIT BUFFER 
59 0, 6302 11 710 MOVB  #RSCMND,aRO [FORM COMMAND MESSAGE PACK ( 
026 506 11276 1 900001 MOVB #RSMSIZ.1(RO) :THIS B ( 
1 026514 112760 1 00000 MOVB &RSSNIT.2(RO) :OP CODE IS INITIALIZE 
026522 013760 000064 00001 MOV REC, 10. (RO) :TO THIS RECORD 
026530 105060 003 CLRB =: 33. (RO) [NO MODIFI | 
0265 105060 0004 CLRB 4 = (RO) =NO DR { 
5 026540 11276 10 000005 MOVB #B1T03,5.(RO) :SET MRSP SWITCH | 
6546 00 06 ) CLR 6. (RO) [NO SEQUENCE # | 
655 5 01 CLR . (RO) :NO BYTE COUNT { 
655 O12 1 MOV #RSMS1Z,R1 3 
69 65 7 TST (R1)4 PLUS FLAG + BCNT 


1 
1 : 
sf R- CHECKSUM CALC 

265 004737 013654 CALL CHKSUM sRO-->TOP = R1=# OF BYTES 
a 1 g26see 010170 MOV R17, (RO) SINSERT INTO PACKET 





MISCELLANEOUS SECT 
TEST 9 / TEST 


3897 
3898 026722 
3899 026726 
900 


3908 
909 026764 
910 026770 
3911 
3912 026772 
3913 026776 
914 


9 

3 Brus 
3 027054 

7 027060 


s8 
wW 
=—™— 
wn 
nu 
—w 


it BO IO 
D022 2—4— 
i 
FARR=S 
SOoooo 


S sess 
MMU 
Sy NSssos 
on OOO 


oo-0o oO 
os ——s 
NUNN CF 
AAA 
WII 


=] 
w 


seee ss 88 8 
mn Wew wm —f 
* on WwN 

ao 


ss 


ft 
W~non 
— 
Wnt 


sss 


000001 
000002 
000012 


000005 


000032 


003312 
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AL PROTOCOL 


-SET UP EXPECTATIONS: 

T(R5) =HOW MANY TO SEND 

#RSCAND -ASFLG(RS) sEXPECT END PACK 
) 


#RSSNSZ ,SNDCN 


XSCN 


. T ;COUNT WITH THI 
#1. .XSPKNA(RS 


HIS 
sEXPECT ONLY 1 PACKET 


RSVP SEND 

[AND RETURN TO SCHEDULER 
#B1T3,aR5 :RETRY (FLAG BYTE ERROR)? 
65$ YES 
#TRBUF ,RO 7->(POINT TO) XMIT BUFFER 
#RSCMND ,@RO : COMMAND MESSAGE PACK 
WRSMSIZ.1(RO)  :THIS BIG 
WRSSNOP.2(RO)  :OP CODE IS NO-OPERATION 
REC, 10. (RO) :TO THIS RECORD 
3. (RO) [NO MODIFIER 
4. (RO) *NO DRIVE 
#BIT03,5.(RO) SET MRSP SWITCH 
6. (RO) ‘NO SEQUENCE # 
8. (RO) [NO BYTE COUNT 
#RSMSIZ,R1 [GET COUNT 
(R1)+ :PLUS FLAG + BCNT 


3FOR CHECKSUM CALC 


CHKSUM *RO-=>TOP  R1=# OF BYTES 
R1, (RO) SINSERT INTO PACKET 
“SET UP EXPECTATIONS: 

WRSSNSZ,SNDCNT(R5) ;HOW MANY TO SE 

WRSCMND,.XSFLG(R5) ;EXPECT END PACK 

WRSNDSZ.XSCNT(R5) :COUNT WITH THIS 

#1.,XSPKNM(RS) :EXPECT ONLY 1 PACKET 

RSVP SEND 

SAND RETURN TO SCHEDULER 

#B1T3,aR5 sRETRY (FLAG BYTE ERROR)? 

66$ YES 

ONE 

TESTS 

PPSOT9 sPROTOCOL SUMMARY @ END OF PASS 

ENDT9 3NO 

UNI TNO ?SET UNIT # TO ZERO 

#MSAGE1 ‘PRINT HEADER 
MOV 
MOV 
MOV 
TRAP 
ADD 


#BLKTBL .DEVPTR :SET ALL UNITS 
@DEVPTR.R *GET POINTER 
TATUS(R5) [1$ UNIT ABORTED 


% sYE 
MRSP(RS) :1S UNIT MODIFIED 
2s 3NO 
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TEST 9 / TESTS MODIFIED RADIAL SERIAL PROTOCOL SEQ 0119 
3925 027062 PRINTF #MSAGE2,UNITNO ;MESSAGE FOR MODIFIED UNIT | 
9 7 013746 9 7366 MOV UNI TNO, =(SP) 
res 012746 72 MOV #MSAGE 2, - (SP) 
Boro 810608 oy ag tar 
027100 Nt TRAP - CSPNTF 
027102 962706 000006 ADD &6, SP 
3926 027106 00042 BR 4$ :SEE IF LAST UNIT 
3927 027110 2$: PRINTF #MSAGE3,UNITNO :MESSAGE FOR NON-MODIFIED UNIT 
027110 013746 027366 MOV UNI TNO, =(SP) 
027114 012746 027307 MOV #MSAGE $,-(SP) 
027120 012746 000002 MOV #2,-(SP) 
027124 010600 MOV SP,RO 
027126 104417 TRAP — CSPNTF 
027130 062706 000006 ADD #6,SP 
3928 027134 00041 BR 4$ :SEE IF LAST UNIT 
3929 027136 3$: PRINTF #MSAGE4,UNITNO :MESSAGE FOR ABORTED UNIT 
027136 013746 027366 MOV UNI TNO, =(SP) 
027142 012746 027336 MOV #MSAGES , = (SP) 
027146 012746 000002 MOV #2,-(SP) 
027152 010600 MOV SP, 
027154 104417 TRAP  CSPNTF 
027156 062706 000006 ADD #6,SP 
3930 027162 023727 003312 003366 4$: CMP DEVPTR,ALSTDEV ;1S THIS THE LAST DEVICE 
3931 027170 103006 BHIS p19 3Y 
3932 027172 062737 000002 003312 ADD #2,DEVPTR [GET NEXT UNIT 
3933 027200 005237 027366 INC UNI TNO SINC UNIT # 
3934 027204 000716 BR i$ 
3936 027206 000207 ENDT9: RETURN 
3938 027210 ENDTST 
027210 L10024: 
027210 104401 TRAP CSETST 


3940 9 rele 045 
3941 02725 

sock 027307 045 
a 027336 045 
3945 027366 000000 UNITNO: .WOR 


045 MSAGE1: .ASCIZ /ZNZS8ZAUNIT NOZS9ZS6ZAPROTOCOLZN/ 
045 MSAGE2: .ASCIZ !%NZS9ZS2%Z01ZS9ZS9ZARSP/MRSP! 
3 : : ZS9ZARSP/ 
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PATCH AREA SEQ 0120 
948 -SBTTL PATCH AREA 
949 000144 eREPT 100. 
950 «WORD 
3951 -ENDR 





“MISCELLANEOUS — 


1/0 BUFFER AREA 
54 
955 
95 
95 
58 0277 
$020 770 
960 027704 
961 0277 
Boe 02771 
963 027712 
964 027714 
965 027716 
966 
967 
so08 
969 
3970 
971 027720 
dC} 027721 
97 
3974 027722 
3975 


3977 
3978 030760 
3979 032016 
3980 033054 
S053 034112 
3983 036206 
3984 037244 
3985 040302 
3986 
3987 
3988 
3989 041340 
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SEQ 0121 


_»SBTTL 1/0 BUFFER AREAS: 
;WHO-GETS-WHAT=SPACE TABLE 
BUFTBL: .WORD BUFO 

- WOR 


D BUF] 
WORD ours 
wORD BUF 
-WORD BUFS 
»WORD BUFS 
WORD BUF 
-WORD BUF 


SONLY 1 TRANSMIT BUFFER NECESSARY: 


~BYTE RSXOFF 
-BYTE RSXOFF :SEND XOFF BEFORE EVERY PACKET 


TRBUF: .BLKB RCBFSZ 


UFO:  .BLKB RCBFSZ 


BUF 8B RCBF SZ 
BUF 4 -BLKB = RCBFSZ 
BUFS:  .BLKB RCBFSZ 
BUF6: .BLKB RCBFSZ 
BUF7: .BLKB RC 


ENDMOD 
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1/0 BUFFER AREAS: SEQ 0122 

pr tt TITLE PARAMETER CODING 

rst) .SBTTL HARDWARE PARAMETER CODING SECTION 

4054 041340 BGNMOD 

1086 

4057 $ "TH E HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

4058 : THAT ARE USED BY THE SUPERVISOR TO BUILD P~TABLES. THE 

4059 3 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

4060 3 INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

4061 3; MACROS hg THE SUPERVISOR TO ESTABLISH COMMUNI CATIONS 

4062 3: WITH THE OPERATOR. 

4063 i- 

4064 

4065 041340 BGNHRD 
041340 000021 -WORD L10025-LS$HARD/2 
041342 LSHARD:: 

28 

4068 041342 GPRMA MSG1,0,0,160000,177777.%ES 
041342 000031 -WORD TSCODE 
041344 041404 «WORD MSG1 
041346 160000 eWORD TSLOLIM 
041350 17777 -WORD TSHILIM 

4069 041352 GPRMA MSG1B,2,0,0,776,YES 
041352 001031 «WORD TSCODE 
041354 041415 «WORD &MSG1B 
041356 000000 -WORD TSLOLIM 
041360 000776 «WORD TSHILIM 

4070 041362 GPRML MSG1C.6,1.,YES 
041362 003130 -WORD TSCODF 
041364 041432 -WORD MSGIC 
041366 000001 -WORD 1 

4071 041370 GPRML MSG2.,4,1,YES 
041370 002130 «WORD TSCODE 
041372 041450 -WORD MSG2 
041374 1 WORD 

4072 041376 GPRML MSG3.4.,2.,YES 
041376 002130 -WORD TSCODE 
041400 041465 -WORD MSG3 
041402 WORD 

4073 

4079 

4080 041404 ENDHRD 

EVEN 

sont 041404 L10025: 

4082 041404 138 125 065 MSGi: .ASCIZ /TUS8 CSR/ 

4083 041415 126 105 103 MSGIB: .ASCIZ /VECTOR ADDR 

4084 041432 120 104 124 MSGIC: .ASCIZ /PDT INTERFAGE/ 

4085 041450 124 105 123 MSG eASCIZ /TEST DRIVE 0/ 

£056 1465 124 105 123 MSG eASCIZ /TEST DRIVE V/ 

rie tl EVEN 
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SOFTWARE PARAMETER CODING SECTION SEQ 0123 

4098 - SBTTL SOFTWARE PARAMETER CODING SECTION 

4100 : THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

4101 : THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

rt 3 MAC ARE NO ECUTED AS MACHI NSTRUCTIONS BUT ARE 

410 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. T 

4104 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

4105 3; WITH THE OPERATOR. 

4106 37° 

t108 04150. BGNSFT 
041 205 00003 | «WORD L10026-L$SOF T/2 
041504 LSSOFT:: 

4109 041504 GPRMD MSG4,0,D,1777,8.,512..,YES 
041504 000052 -WORD TSCODE 
041506 0415 WORD se 
041510 00177 eWORD 1777 
041512 000010 «WORD TSLOLIM 
041514 001000 eWORD TSHILIM 

4110 041516 GPRML MSG48,10,1,YES 
041516 004130 -WORD TSCODE 
041520 041635 eWORD MSG4B8 
B61 3¢¢ 000001 eWORD 1 

4111 041524 GPRML MSG5,2,1.,YES 
041524 001130 -WORD TSCODE 
951368 041675 -WORD MSGS 
0415 1 WORD 

4112 061532 GPRML MSG6,6,1.,YES 
041532 003130 -WORD TSCODE 
041534 041727 -WORD MSG6 
041536 1 WORD 

4113 041540 GPRML MSG7,4,1,YES 
041540 002130 eWORD TSCODE 
041542 041754 eWORD &MSG7 
041544 1 eWORD 1 

4114 041546 GPRMD MSG8,10.,D,377,1,254.,YES 
041546 005052 -WORD TSCODE 
041550 042002 eWORD MSG8 
041552 000377 eWORD 377 
041554 000001 eWORD TSLOLIM 
041556 000376 eWORD TSHILIM 

4115 041560 GPRML MSG9,12.,1.YES 
041560 0961 -WORD TSCODE 
041562 04204 eWORD MSGI 
041564 eWORD 1 

4122 041566 SFTOUT: ENDSFT ee 
041566 a L10026: 

4123 051368 116 125 115 SG4: .ASCIZ ‘NUMBER OF BLOCKS:TEST 5-8 (8 TO 512)" 

4124 06163 101 104 104 SG46B: .ASCIZ /ADD DR # TO DATA PATTERN:TEST 5-8/ 

4125 041675 123 124 101 MSG5 eASCIZ /STATISTICS PRINTED AT EOP/ 

41 $ Berar 103 117 115 mSG6: eASCIZ /COMPARE DATA ON READ/ 

41 pel 4 120 12 111 MSG7:  .ASCIL /PRINT PACKET ON ERROR/ 

4128 $006 043 04 105 MSG8: .ASCIZ /# ERRORS = OVC FATAL IF ‘EVL‘SET/ 

rh 04204 120 12 111 MSG9: ciety /PRINT UNIT PROTOCOL SUMMARY (TEST 9)/ 
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ash iy CODING MACRO _M1113  25-FEB-82 07:06 PAGE 127 

SOFTWARE PARAMETER CODING SECTION SEQ 0124 

4133 000016 eREPT = 14, sLASTAD CORRECTION 

41 - WOR 

4135 -ENDR 

4142 042144 LASTAD even 
042144 164 -WORD TSFREE 
042146 $0006 -WORD TSSIZE 
042150 LSLAST:: 

$137 042150 ENDMOD 

4145 042150 BGNSETUP 1 

4146 042150 BGNPTAB 
04 138 000000 -WORD 0 
042152 000004 -WORD 110031-./2-1 
be 154 L10027: 

4147 154 176500 176500 

4149 969160 000 5 

2130 geste? 000000 

4151 042164 ENDPTAB 
pes 1G L10031: 

a 042164 ENDSETUP 

415 000001 ~END 
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PARAMETER CODING MACRO M1113 25-FEB-82 07:06 PAGE 127-1 
SYMBOL TABL 


E SEQ 0125 
ABNDX = G 010576 G CSMSG = 6008 3 ESSLF = 177777 G GSOF SI= 376 
13146 11302 G CSOPEN= 44 4 ESTRY = 99000) G GS$PRMA= 1 
ABOMSG 017254 CHKERR 0114 CSPNTB= 014 ESWLOC= 1 $3 G GSPRMD= 
Orbe G CSPNTF= 000017 ESWR = 177757 GSPRML= 
ADR = G CHKPTR 0107: CSPNTS= 01 EVL = 600088 G GSRADA= 14 
LGON 003340 G CHKREE 011460 TX= pooes EVLTHR 00 § GS$RADB= 
ASSEMB= 000010 CHKRET 012024 C$al0 = 00037 EXOFF 0074 GS$RADD= 
BDATA = 000134 G CHKSUC 012320 G DBU= 4a EXON 7426 G$RADL= iso 
BDBYTS 014726 SUM 013654 G FG= 000047 ESEND = 1 
BDCHK = 000022 G HK8 819618 CSRESE= 000033 SLOAD= 0000. GSXFER= 000004 
BDCOM = 000014 G CKCKSM 013750 G CSREVI= 000003 FLGLOC 019/36 G GSYES = 000010 
BITO = 000001 G CLRALL 005710 G pase 1573 HARDR = SetZh G 
B1TOO = 000001 G F 005750 G CSRPT = 000025 15712 HARDW = 140 G 
BITO1 = 000002 G CLRPTR 006002 000046 FTLNM 3320 HELP = 000000 
BITS = 000004 G SNT= 000100 G CSSPRI= 000041 FSAU_ = 000015 HOE = 4's 5 G 
BITOS = 000010 G CMNDER= 000040 G CSSVEC= 000037 FSAUTO= 000020 HRD 13126 
BITO4 = 000020 G CMPDAT 00221 CSTPRI= 000013 FSBGN = 040 HRDRD = 18 G 
BITOS = 000040 G CNINIT= 000032 G DESC 014730 FSCLEA= 000007 HRDWR = 20 G 
BITO06 = 000100 G COMPAR 014550 G DEVPTR 003312 G FSDU_ = 000016 HRD1 011746 
BITO7 = 000200 G CSNRDY 003344 G 0 003370 FSEND = 000041 = 44 G 
BITO8 = 000400 G CSRCVB 003346 G DEVI 003602 FSHARD= 000004 IDPTR 3324 G 
BITO9 = 001000 G C$AU_ = 52 DEV. 0040 FSHW = 3 IpU = 000040 G 
BIT] = 000002 G CSAUTO= 000061 DEV. 004226 FSINIT= 0 IER. = 020000 G 
BIT10 = 002000 G CSBRK = 000022 DEV4 004440 FSJMP = 00005 INIT 16164 
BIT11 = 004000 G CSBSEG= 000004 DEVS 652 FSMOD = INITWO pet: 
BITl¢ = 010000 G ¢ DEV: 005 G = One INIT2 1621 
BIT135 = 020000 G CSCEFG= 00004 DE 52 FSPROT= 000021 ISR = 100 G 
BIT14 = 040000 G CSCLCK= 00006 DFPTBL bose G = IXE = 004000 G 
BIT15 = 100000 G CSCLEA= 00001 DF 774 FSRPT = 00001 ISAU_ = 000041 
atte = 000004 G C$CLOS= 00003 DIAGMC= 000000 FSSEG = ISAUTO= 000041 
BITS = 000010 G SCLP1= D 000074 FSSOFT= 000005 ISCLN = 000041 
BIT4 = 000020 G CSCVEC= 000036 D 313018 G FSSRV = 000010 I$SDU = 000041 
BITS = 000040 G CSDCLN= 000044 DONE 003322 G FS$SUB = 000002 ISHRD = 1 
BIT6 = 000100 G C 000051 DR on t35 $SW = 000014 ISINIT= 1 
BIT? = 000200 G C$DRPT= aig DRVCHK 002 $2 FSTEST= ponent ISMOD = 1 
BIT8 = 000400 G = 000053 EF.C G TMP 010572 ISMSG = 1 
BIT9 = 001000 G DIT= 00000 EF .NEW= 000035 G TMP2 0574 ISPROT= 0 
BLKEND= o00e0s G CSERDF= 00005 EF .PWR= 034 G TANS 7152 G ISPTAB= 000041 
BLKER 003532 G = 000056 EF .RES= 4 544 G THRD b4$ 16 ISPWR = 1 
BLKSIZ= 000212 G EF .STA= 40 G GETPTR 38 ISRPT = 1 
BLKTBL 003550 G CSERSF= 000054 ENDGPS 010146 TRS 1722 ISSEG = 1 
BOE = 00 G CSERSO= 000057 ENDRSP 007100 GTAGIN 7464 ISSETU= 000041 
BRKPTR 014546 CSESCA= 000010 ENDT9 0272 GiBYTE 010346 G ISSFT = 1 
T 1 CSESEG= b} ERRDES Stare G 1 1S ISSRV = 1 
BRKWD 14540 C$ESUB= 3 E 10138 OK 730 ISSUB = 1 
CSETST= 1 E = 17 reo G GTPKS1 2eg0 G ISTST = 1 
BUFO CSEXIT= 2 ESCKS = 177757 G GTPKS8 7430 G JSJMP = 167 
BUF 1 032016 C$GETB6= $8 ESCKSM= 177757 GTPTR 10753 LENGT 210 
Burs 033054 C$GETW= ESCMD = 1777. 9 G UM 7 LGOF ST= 198 G 
BUF Ose C$GMAN= ESNCRT= 177767 G GSCNTO= LNCNT 151 
BUF 4 3515 C$GPHR= ESNOMO= 177737 G DELM= L = G 
BUF5 CS$GPLO= 3 ESNONX= 177770 G GSDISP= 0G 12634 G 
BUFS 037244 CS$GPRI= ESOK = 90000? G GSEXCP= LOGO 131 § 
BUF 2 CSINIT= 11 ESPART= 8 G GSHILI= LOGOK 127, 
CARLF 15144 CSINLP= 3 ESRD = 17775 GSLOLI= LOGOK2 01 
CHECK 16274 CSMANI= ESREC = 177711 G G$NO_ = 44 LOG 4 1 
CHKANR 010702 CSMEM = 31 ESSK = 177740 G GSOFFS= 0004 LOG1 15024 








PARAMETER CODING 
SYMBOL TABLE 

U ot 54 
LOG 13114 
FB 

= 

laev" HOE § 
LSACP 110 G 
LSAPT 00 G 
LSAU_ =: 017302 G 
LSAUT 002070 G 
LSAUTO 016754 G 
LSCCP) 002106 G 
LSCLEA 01 138 G 
L$CcO sit G 
LSDE sea) G 
LSDESC 002122 G 
LSDE 002076 G 
LSDE ese G 
LSDISP 002152 G 
LSDOLY 002116 G 
LSOTP 002040 G 
LSDTYP 002034 G 
L$DU O17138 G 
L$dUT 002072 G 
L$DVTY 005510 G 
LSEF 002052 G 
LSENVI 002044 G 
LSETP 002102 G 
LSEXP1 002046 G 
LSEXP4 002064 G 
LSEXPS 002066 G 
L 041342 G 
LSHIME 002120 G 
LSHPCP 002016 G 
LSHPTP rte 34 G 
LSHW ost 6G 
LSICP_ 002104 G 
LSINIT 016164 G 
LSLADP 00 O¢6 G 
LSLAST 042150 G 
LSLOAD oo 100 G 
LSLUN 74G 
LSMREV 002050 G 
LSNAME 00, G 
LSPRIO G 
LSPROT G 
LSPRT G 
LSREPP 00, G 
LSREV 00 G 
He, hig § 
LSSPC 00 056 G 
LSSPCP 0 020 G 
LSSPTP 2024 G 
LSSTA bose G 
L$SW eo 210 G 
LSTEST 114 G 
LSTIML 002014 G 


MACRO M1113 25-FEB-82 07:06 PAGE 127-2 


S3ss 


Zs 


: Be 
1 
1444 
1330 
155 
1 
1 
171 
1 

0 
0 
0 
0 
0 
0 
0 
0 
0 


L 

Li 

ui 

1 

1 

Li 

1 

1 

L10010 

L10011 7154 
Ligs 7 $3 
L1001 1730 
L10014 017 2% 
L10015 017756 
£10018 21350 
Hibs Behe 
Hi) S58 
HESS Se38 
L10024 027210 
L10025 041404 
L1gdes 041566 
Lins 042154 
uae sie 
ME SMRS 010200 
MODRSP 01025 
MRSDLY 010254 
MRSP_ = 00019 G 
MSAGE1 027 ig 
Rit Sra 
MSAGE4 027336 
MSAUTO 017116 
MSBDA 002340 G 
MSCMD S349 G 
MSCOM 002404 G 
MSG1 041404 
MSG1B 331313 
at Site 
a Hit 
MSG4 15 
MSG4B 1 

Re ies 
Be Hi 
MSG8 006 
MSG9 7: 
ies Sut 
M 216 G 
Rilke Set 
M 8 446 G 
MSNOTP 464 G 


eas 


ee 
AAAAA|AAAAAAAAAAMdA 


ORR 


Pfr 
ang 
zr 
one 
Ssssss 
=OWWM 


2% 
< 
a” 
" 
3s 
= 
AOwronn 
UNSOUNUAOW 
UNNI 
FFooso 


000034 
PARTL = G 
PATTEN= G 
PDTFLG 016750 G 
PERDEV 
PKPTR = 104 G 
PNT = 001 G 
PPSOT9 4 
3 4 
PRDAT 1 3 
FORM 015134 
PRIOO = 000000 G 
= 
PRIO} = 000040 ¢ 
pnts = 100 G 
PRIO5 = 140 G 
PRI04 = G 
PRIOS = 40 G 
PRI06 = G 


PRIO7 = 
PRNPAK 
12 


SETSRV 









—=IMon 


ALS 
AA AAAGA AAAAAG 


= 
eo 
eonnr 


D AAH ADHDAQAAAAAARAGAGA AAAAAAAAAG 





SETUP 
SFPTBL $5 
F 131 

15 


$ 


nnn 
zaman 
Sen 
zaao 
aun 
wa a 
MORE RVSRO 


o 

=z 

— 

" 

zs 
AAG AG AQAQAG 


Zz 
— 
2 
= 
oo 
a 
, a 
So 


Wn 
33% 


000122 
000124 
SRVTBL Ooze $ 
1 
= 
1 
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PARAMETER CODING MACRO M1113 25-FEB-82 07:06 PAGE 127-3 
SYMBOL TABLE SEQ 0127 
TST 5 TSNSO = 000 TSSAUT= 010010 TITRY = 000146 G IT 014504 
TSTBEX e3re TSNS1 = 900003 TSSCLE= 010011 1 17508 c 13640 6 
TST9 026 TSPCNT= se TS$DAT= 010031 T 17760 G WRLOCK= 000026 G 
TUVECT= 000204 G TSPTAB= 0100 T$sdU. = 010012 4 2133¢ G TNO = 000110 G 
= 000002 ISPTHV: TSSHAR= 01002 T4TRY = 000132 G WRINT = 000112 G 
TSCODE= 0061 Oo0001 $$ = 010001 15 028796 G XENSND 
TSERRN= 000146 TSSAVL= 177777 TSSINI= 010007 T 23746 G = 000030 6 
Teseet= 177777 TSSMSG= 010003 T 024532 G SR = 000026 G 
TSFLAG= 000040 T$SIZE= 000006 TSSPC = 000001 T8 025522 G XSCNT = 000036 G 
TSFREE= 042164 9000 TSSPRO= 010000 T9 026306 & XSFLG = 000034 G 
TSGMAN= TSTAGL= 177777 TSSPTA= 010030 UAM = 000200 6 SPKNM= 000032 G } 
TSHILI= 000376 TSTAGN= 010032 TSSRPT= 010006 UNIT 013362 G XSPTR = 000106 G } 
TSLAST= 000001 TSTEMP= 000000 TS$SOF= 010026 UNITNO 027366 X$ALWA= ? 
TSLOLI= 000001 TSTEST= 000011 TSSSRV= 010005 UNREC 012224 XSFALS= 000040 
TSLSYM= 010000 TSTSTM= 177777 TS$SW = 010002 UNSUC 011682 X$SOFFS= 000400 
TSLTNO= 000011 TSTSTS= 000001 TSSTES= 010024 UNXPCT 007634 XSTRUE= 000020 
TSNEST= 177777 TSSAU = 010013 11 017304 6 


- ABS. 042164 000 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 33938 WORDS ( 133 PAGES) 
NAMIC MEMORY: 21558 WORDS ( 82 PAGES) 


DY 
ELAPSED TIME: 
CZTUUDO.BIN/EN: AMA: ABS ,CZTUUDO/CR/~SP=LB1 : C1, 1SVC/MLB, SY:(203,377ICZTUUDO 





CZTUUDO _ CREATED BY MACRO ON 25-FEB-82 AT 07:08 
SYMBOL 6 ates REFERENCES 
ABNDX = G #16-901 *72-2691 Cg tA 
ABO 013146 72-2701 72-2715 72-2728 
ABOMSG O17 633 97-3448 #97-3478 
ABONM 00653 #49-1812 2%49-1829 49-1834 
ADR = 20 G #10-653 
ALLGON 003340 G #15-870 #49-1838 = *91-3313 
ASSEMB = 000010 5-464 ~464 
ATA = 000134 G #17-953 89-3185 89-3195 
BDBYTS 014726 *86-3033 *86-3044 86-3047 
BDCHK = 000022 G #11-681 66-2397 $673538 
COM = 000014 G #11-678 68-2504 72-2716 
BITO} == 000001 G #10-65 37-1628 60-2225 
BITOO § = 000001 G #10-€5 10-65 
BITO1 = 000002 G #10-65 10-653 
BITO2 = 000004 G #10-65 10-653 
BIT0$ = 000010 G #10-653 10-65 117-3865 
BITO4 = 000020 G #10-653 10-653 
BITOS = 000040 G #10-653 10-653 
BIT06 = 000100 G #10-653 10-653 
BITO7 = 000200 G #10-653 10-653 
BITO8 = 000400 G #10-653 10-653 
BITO9 = 001000 G #10-653 10-653 
BIT1 = 000002 G #10-653 49-1794 54-1985 
BIT10 = 002000 G #10-653 49-1792 50-1914 
196" 328 107-3666 107-3666 
BIT11 = 004000 G #10-653 89-3171 91-3250 
BIT12 = 010000 G #10-653 106-3631 106-3631 
109-3709 = 113-3771) 113-3771 
BIT13. = 020000 G #10-653 9-1782 49-1790 
BIT14 = 040000 G #10-653 49-1818 49-1821 
BIT1S = 100000 G #10-653 37-1626 49-1801 
64-233 68-2496 91-3249 
BIT2 = 000004 G #10-653 49-1789 49-1803 
BITS = 000010 G #10-653 1780. 60-2228 
106-3631 106-3631 106-3632 
109-3709 = 111-3740) )3=- 113-3771 
BIT4 = 000020 G 10-653 1908 50-191 
BITS = 000040 G #10-653 50-1930 50-193 
BIT6 = 000100 G 10-653 60-2231 68-2501 
84-2978 84-2986 86-3053 
BIT? = 000200 G ab} nt 60-2232 68-2530 
BIT8 = 000400 G #10-653 33216 1 49-1784 
BIT9 = 001000 G #10-653 7-1630 50-1902 
BLKEND = 000898 G #17-973 91-3288 
BLKER 0033532 G #15-867 *50-1899 91-3321 
BLKSIZ = 000212 G #17-977 19-999 19-1000 
KTBL 003350 G #19-987 37-1624 39-1658 
89-3165 91-3245 91-3265 
= 000400 G #1 
BRKPTR 014546 #82-2933 82-2941 82-2948 


PAGE 1 
CREF 


72-27 
WPB-B1A0 
#49~1842 

95-3405 


86-3052 


72-2707 


117=3892 


60-2226 
68-2510 
107-3667 


68-2538 
50-1918 
68-2507 


19-1001 
41-1683 
93-3370 


84-2999 


10 


#86-3062 


78-2818 


68-2530 
109-3709 


93-3372 
107-3666 


74-2763 
82-2934 
68-2544 
50-1927 
2-2534 


19-1002 
45-1726 
97-3469 


#84-3013 


78-2819 


68-2490 
68-2538 
109-3709 


107-3666 
68-2494 


90-861 


19-1003 
49-1776 
117-3919 


78-2821 


68-2561 
68-2559 
111-3740 


107-3666 


~2490 

2-3582 
73667 
73853 


=Soe& 


1 
1 
1 


82-2949 
68-2548 
go" 552 

1-3280 


19-1004 
49-1813 


78-2832 


106-3631 
113-3771 


109-3709 


58-2131 
68-2492 
13682 
82-2965 
68-2559 
91-3278 


19-1005 
58-2090 





SEQ 0128 


82-2907 


106-3631 
113-3771 


109-3709 


shih 


Mm 10 
CZTUUDO CREATED BY MACRO ON 25-FEB-82 AT 07:08 PAGE 2 
— 2-1 apchecopeny CREF SEQ 0129 


E 
AL Reenences 
BRKTO. 014544 82-2906 ¥82-2915 #822921 *82-2931  *82-2939 84-3003 484-3012 
BRKWD 014540 82-2920  #84-3009 
BUFTBL 027700 91- #121-3958 
BUFO 030760 121-3958 #121-3978 
BUF 1 032016 121-3959 #121-3979 
BUF 033054 121-3960 4121-3980 
BUF 934112 121-3961 #121-3981 
BUF4 0359150 121-3962 #121-3982 
BUF5 036206 121-3963 #121-3985 
BUF6 «037244 121-3964 #1213984 
BUF? 040302 121-3965 #121-3985 
CARLF 015144 88-3091 88-3093  #88-3102 
CHECK 016274 91-3255 #913260 
C 010702 64-2330 64-2342 64-2346 
CHKANS 010576 G = 47=1751  #64-2324 
CHKEND 011302 G 66-2402 66-2450  #68-2487 
CHKERR 011406 68-2500  #68-2507 
CHKPKS 010706 G 64-2528 G4-2540 66-2376 
CHKPTR 010704 #64-2332 64-2333 64-2341 64-2343 464-2348 
CHKREE 011460 68-2493  #68-2514 
CHKRET 012024 468-3498 68-2503 68-2506 68-2509 68-2513 68-2531 68-2539 68-2547 68-2549 
CHKSUC 012320 G «68-2495 68-2514 + #70-2596 
013656 G #78-2816 80-2859. 102-3582 104-3600 106-3631 106-3631 106-3631 106-3632 106-3632 
107-3666 107-3666 107-3666 107-3667 107-3667 109-3709 109-3709 + 109-3709 + 111-3740 
111-3740 113-3771 113-3771 113-3771 115-3802 115-3802 117-3843 117-3871 117-3898 
HK8 01061 64-2327  #64~2332 
CKCKSM 013750 G 66-2395 66-2433 66-2445 #80-2856 
CLRALL 005710 G = #41-1693 54-1988 
CLRBUF 005750 G «41-1685 «43-1701 54-1991 
CLRPTR 006002 #41-1683 41-1684 41-1686 © *41-1688 -#43-1711 
SNT = 000100 G #16-926 50-1911 70-2603 += 70-2607 «= 70-2620» 74-2769 + *82-2908 
CMNDER = 000040 G #11-688 70-2641 
T 002216 9 86-3035 
CNINIT = 000032 G 11-685 82-2961 
014550 G 66-2411 66-2435  #86-3030 
CSNRDY 003344 G #15-877 52-1956 
CSRCVB 003346 G #15878 62-226 
CSAU = 000052 64 99-351 
CSAUTO = 000061 45-466 93-3381 
CSBRK = 000022 45-466 47-1749 49-1837 52-1960 62-2284 += 82-2911 84-3001 = 84-3002 89-3164 
89-3167 89-3169 
C$BSEG = 000004 #5466 
C$BSUB = 00000 ~4 
CSCEFG = 00004 #5464 
C$CLCK = 000062 #5466 
CSCLEA = 00001 45-464 95-3430 
C$CLOS = 00003 #5466 
C$CLP1 = 000006 #5466 
CSCVEC = 000036 95-464 82-2967 82-2969 93-3380 
CSDCLN = 000044 #5464 49-1839 91-3263 -91-3283 
C$D0DU = 000051 #5-464 72-2746 93-3392 
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CZTUUDO _ CREATED BY MACRO ON 25-FEB-82 AT 07:08 One 3 


SYMBOL CROSS REFERENCE SEQ 0130 

SYMBOL VALUE REFERENCES 

CSDRPT = 3 #5=4 95-3409 

CSDU = #5464 97-3468 

CSEDIT = 00000 #5~464 359 7 

CSE = 00005 #5464 £09 72-2714 

CSERHR = B28 #5-464 72-27 72-2742 

CSER = #5-464 

CSERSF = 000054 #5~464 49-1836 91-3262 91-3282 

CSER = 000057 #5~464 72-2720 72-2738 86-3051 

CSESCA = 000010 #5-464 

CSESEG = 5 #5-464 

CSE = 3 #5-464 

CSETST = 000001 es 102-3587 104-3614 106-3649 107-3691 109-3723 111-3754 113-3785 115-3816 

CSEXIT = 000032 arc 102-3580 104-3594 106-3624 107-3659 109-3699 111-3730 113-3761 115-3792 

C$GETB = 000026 #5-464 

CSGETW = 000027 #5~464 

C = 000043 #5464 

CSGPHR = 000042 #5464 91-3269 

C$GPLO = 000030 #5-464 

CSGPRI = 000040 #5464 

CSINIT = 900011 45-464 91-3350 

CSINLP = 000020 #5464 

C I = 000050 #5-464 

CSMEM = 000031 #5464 

CSMSG = 000023 #5464 74-2776 

CSOPEN = 000034 #5464 

CSPNTB = 000014 #5464 68-2536 74-2766 74-2769 74-2772 86-3052 

CSPNTF = 000017 ng Se + ahd 88-3086 88-3091 88-3093 93-3389 97-3448 117-3918 117-3925 

CSPNTS = 000016 #5-464 89-3166 89-3168 89-3184 89-3185 89-3195 

CSPNTX = 000015 #5464 68-2512 68-2517 68-2520 628-2522 68-2543 68-2551 

C$Q10 = 000377 #5-464 

CSR = 000007 #5464 

CSREFG = 000047. #5464 91-3242 

CSRESE = 000033 45-464 45-464 

CSREVI = 000003 #5464 5-50 

CSRFLA = 000021 #5464 91-3320 

CSRPT = 000025 #5-464 89-3208 

CSSEFG = 000046 #5-464 ! 

CSSPRI = 000041 #5~-464 82-2926 

CS$SVEC = 000037 #5464 82-2927 82-2929 93-3369 

CSTPRI = 000013 #5464 

ESC 014730 -3052  #86-30 

DEVPTR 003312 G #15-859 49-1776 49-1777 49-1807 %49-1809 49-1813 49-1814 49-1830 249-1832 
£91-3245 bes 214 91-3254 291-3256 +*91-3265 91-3267 39 #91-3314 3=—. #117-3919 += 117-3920 
117-3930 *117-3932 

DEVO 003370 19-987 #19-999 

DEV1 00360. 19-988 #19-1000 

DEV. 004014 19-989 At ab 64 

DEV. 004226 19-990 #19-100 


DEV4 004440 19-991 #19-100. 













CZTUUDO 





CREATED BY MACRO ON 25-FEB-82 AT 07:08 
SYMBOL CROSS REFERENCE 


014010 
003322 


QAAQAAG 


DH AAAADGD AAHGHGHAAG AHA o@ 


REFERENCES 
Hs: #19-1006 
#19-1005 
19-994 #191006 
872-2712 *72=2713 
=466 nd 
Wig-904 $-2047 
62-2291 66-228 
Es-fap0 “49-1850 
necks. 51733 
113-3782 *115-3813 
#16-917 771628 
91-5274, 91-3278 
107-3666 107-3667 
113-3770 113-3771 
580 109-3706 
#10-653 
#10-65 
#10-65 
#10-65 
#10-653 —-91-3242 
58-2089 58-2186 
50-1888  #50-1940 
117-3916 117-393 
72-2700 72-2714 
58-2153  #58-2190 
#12-767 
#12-758 —«-12=760 
#12760 
#12-756 —- 70-2639 
#12-748 «70-2636 
#12-755 70-3610 
#12-749 70-2644 
#12-750 «702598 
#12-751 —- 70-3654 
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CZ /UUD0 CREATED BY MACRO ON 25-FEB-82 AT 07:08 PAGE 6 
— wer REF ERENCE CREF 


SEQ 0133 


Y % REFERENCES 
GTOK 007730 8-211 #58~ 13 
GTPKS1 reso G 54-1993  #56-201 
GTPKS8 74 G 35-128) #58-2084 35-3187 
GTPTR 10344 * $-5 =2091 58-2180 58-2182  #60-2235 
GTUM 007672 58-212 #58-2127 
GSCNTO = ia #5~464 
GSDELM = 00037 #5~464 
G$DISP = 00000 #5-464 
GSEXCP = 000400 #5-464 
GSHILI = 000002 #5-464 
= 000001 #5-464 
= 000000 #5464 
GSOFFS = 000400 #5-464 163-4068 123-4069 123-4070 123-4071 123-4072 125-4109 125-4110 125-4111 
125-4112 = 125-411 125-4114 125-4115 
GSOFSI = 000376 #5~-464 1 3-7098 123-4069 123-407 123-4071 123-4072 125-4109 125-4110 125-4111 
125-4112 = 125-411 125-4114 125-411 
GSPRMA = 000001 #5464 123-4068 123-4069 
GSPRMD = 000002 #5-464 125-4109 125-4114 
G = 000000 #5-464 123-4070 123-4071 9123-4072 )= 125-4110 9125-4111 125-4112) 125-4113) = 125-4115 
GSRADA = 000140 #5-464 
GSR = 000000 #5-464 
GSR = 000040 #5-464 133-2495 125-4114 
GSRADL = 000120 #5464 123-4070 123-4071 123-4072) 125-4110) 125-4111) 125-4112) 125-4113) = 125-4115 
GSR 000020 #5-464 123-4068 1235-4069 
G$XFER = 000004 #5-464 
G$YES = 000010 =464 133-4968 \g3- 069 123-407 123-4071 123-4072 125-4109 125-4110 125-4111 
125-4112 125-4113 = 125-4114 = 125-411 
HARDR = 000136 G 17-954 89-3180 89-3190 
HARDW = 000140 G #17-955 89-3182 89-3192 
HELP == 000000 #5-449 5-459 5-481 5-499 7-52 7-537 8-559 9-584 #10-598 
36 10-655 19-1007 1 1913 1-1029 g3=103% ¢3- 1088 $7 -1088 21-1054 
$3-1 000 $1079 37-1568 37-157 7-1579 7-1584 7-1590 7-1598 37-1605 
7-1611 7-161 #89-3111 4 ak 91-3338 95-3411 95-3418 97-3450 97-3456 
3493 99-3499 #100-3519 100-3560 100-3566 121-3990 121-3995 121-4005 #123-4016 
1eaee 74 123-4090 125-4116 127-4136 
= 100000 G 5 
HRD 013126 72-2732 #72-2740 
HRDRD = 000016 G #11-679 68-2554 
HRDWR = 000020 G #11-680 = 236 
HRD1 011746 68-2541 #68-255 
I = a 9 G #10-653 
IDPTR 003324 G #15- #45-1726 89 45-1727 45-"729 = #45-1731 
IDU = 000040 G #10-6 
IER = 020000 G #10-65 
INIT b1asc2 Ht $08 2-293 82-2940 82-2947 82-2954 82-2960  #84-3010 
INIT2 b16279 $1-5243 #913008 
ISR = 000100 G #10-6 ; 
IXE = 004000 6G #10~65 
ISAU_—- = _ 000041 5-464 #99~ 40 #99-3513 
ISAUTO = 000041 #5-464 #93-3367 #93-3381 
ISCLN = 000041 #5-464 #95-3404 #95-3430 


CZTUUDO ~—s CREAT 
or ee 
ime, = BBR 
= 
OEE 
ISMSG_ = 000041 
ISPROT = 000040 
ISPTAB = 000041 
ISPWR = 000041 
ISRPT = 0000461 
ISSEG = 000041 
ISSETU = 000041 
ISSFT = 000041 
I$sRv = 000041 
ISSuB. = 000041 
ISTST = 000041 
JSJMP = 000167 
LENGTH 002210 
LGOFST = 000120 
LNCNT 015130 
LOE = 040000 
LOG 012634 
LOGO 013156 
LOGOK 012722 
LOGOK2 = «1 
LOGO 012710 
LOG! 013024 
LOGS 013054 
LOG 013114 
pes AEE 
LSTDEV 003366 
LSACP 002110 
LSAPT 0020 
LSAU 01730 
LSAUT 00207 
LSAUTO §=—_: 016754 
LSCCcP Boe! 
LSCLEA 0171 
L$cO 0020 
LSDEPO 8=—_: 002011 


E 
E 


D BY 
RENCE 


AAQAQAQAGAAAG Aa 





- FERENCES 
#123~4065 
#5~464 
#5~4 


89-3149 
#123-4054 
#5~464 


i #1¢3~4080 
a Ay 
#89-3149 
127-6143 
Piraby te 
127-6146 


#89-315 
To2-38%8 


91-3322 
72-2692 
*88-3089 


ee: 
#72-2702 
72-2711 
ns 
*7 “3 6 
*72-2737 

2741 
37-1634 
91-3254 
#99~-3490 
#93-3367 


#95~-3404 


MACRO ON 25-FEB-82 AT 07:08 


#97-3468 
#91-3350 
4 
APs 
#74-2776 
#127-4146 


#89-3208 
104-3592 


#127-4145 


#84-2980 
104-3592 


#102-3578 
#115-3816 


#88-3098 


66-2398 
82-2918 
#72-2747 


#722716 


#722720 
#72-2727 
#722738 
#72-2742 


39-1664 
93-3376 


PAGE 7 
CREF 


593 
#89-3224 


127-4151 


106-3622 
127-4146 


484-2984 
106-3622 


102-3580 
ads ey 


113-3761 
#115-3816 


66-2418 
82-2962 


#9-593 
102-3575 
#127-4151 


197-3657 
127-4152 


a 993 
107 723837 


10 
106- 
107- 
111- 
113- 
117= 
Songer 
84-3006 


45-1729 


109-3697 
#127-4152 


109-3697 


#102-3587 


#117-3821 


66-2455 


49-1807 


111-3728 


111-3728 
#102-3587 
106-3624 
#107-3691 
111-3730 


#113-3785 
117-3828 


68-2505 


49-1830 


3105 
wii-989 


113-3759 
113-3759 
104-3592 


1 
17-3938 


68-2528 


58-2180 


#88-3105 
123-4054 
115-3790 
115-3790 

#104-3592 


#117-3938 


68-2557 


64-2341 





YO 
zm 


ATED BY MACRO ON 25-FEB-82 AT 07:08 oage 8 


CZTUUDO 
SYMBOL CROS FERENCE SEQ 0135 
SYMBOL VAL R — 
LSDESC 1s G -50 #5-509 
LSDESP 076 G #5-507 
LSDEVP G #5-507 
LSDISP 1 G 2 ? #7-535 
LSOLY 1146 G #5-507 
LSOTP 040 G #5507 
LSOTYP 002034 G #5-507 
LSOU 17156 G 3-2 7? #97-3440 
LSDUT 3H G #5-507 
LSOVTY 29510 G ~507 #21-1027 
LSEF Se G #5-507 
LSENVI 044 G #5-507 
LSETP 002102 G #5-507 
LSEXP1 046 G #5-507 
LSEX 064 G #5-507 
LSEXPS 002066 G #5-507 
L dees G 5-507 123-4065 #123-4065 
LSHIME 120 G #5-507 
LSHPCP) §=©—002016 _G #5-507 
LSHPTP) 8 =«=©002022 G #5-507 
LSHW 002176 G 5-507 8-552 #8-552 
LSICP 's 104 G #5-507 
LSINIT 16164 G 5-507 #91-3234 
LSLADP arse 6 G #5-507 
LSLAST 042150 G 5-507 #127-4142 =: 127-4152 
L$L 002100 G #5-507 
LSLUN 002074 G #5-507 *72-2689  %72-2690 86-3049 86-3050  +*91-3268 
LSMREV 002050 G #5-507 
002 G #5-507 
L$PRIO 8 =: 002 G #5-507 
LSPROT 002142 G 5-507 #6-516 
LSPRT 002112 G #5-507 
LSREPP 002 G #5-507 
LSREV oeo8 G #5-507 
LSRPT i 150 G 5-507 #89-3156 
LSSOFT 1504 G 5-507 125-4108 #125-4108 
LSSPC 002056 G #5-507 
L$sPCP 8 =©002020 G #5-507 
LS$SPTP 002024 G #5-507 
LSSTA 002050 G #5-507 
L$ 002210 G 5-507 9-574 #9-574 
L$TEST 002114 G #5-507 
LSTIML 002014 G #5-507 
LSUNIT 002012 G #5-507 Aa ad 91-3316 
110001 si soe 8-334 #8-56 
L 10008 $28 574 591 
L1000 01 474-2776 
110004 bes: #84- 
110005 1450. #84~-299 
110006 §8=.: 01557 ro $06 
110007 016662 1- 
110010 017060 #93-3381 
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CZTUUDO CREATED BY MACRO ON 25-FEB-82 AT 07:08 Page 10 


SYMBOL CROSS REFERENCE SEQ 0137 | 
SYMBOL VAL 


REFERENCES | 
MSREC a4 13-787 = #1482 
MSRNIT 370 13-7 #14-81 
MSSELF G 13-7 #14- 
MSSFRD 54 G 13-771 #14- 
MSSFWR 114 G 13-77. #14- 
MSSKER aes G 13-78 #14-797 
TOSN oe 32 G 13-79 #14-833 
MSUNIT 56 G 13-785 #14-821 
002514 G 13-781 #14-811 
wR 002740 G 13-789 ss #14- rH 
MXRTRY 003330 G #15- ge 40 
NCART = se G #11-69 0- $36 
16714 91-3282 9 #9i- 
NOMOR 006534 49-18 49-1843 
NOMOT = a G 11 70-2612 
NOREE 113 68-2491 #68-2495 
NOUNIT = 000036 #11-687 70-2646 
OF 32 #50-1889 
NTSFT 01 3 72-2717 wre~ eles 
& 1806 49-1835 #49-1840 
T 006102 G 47-174 #49~1775 
NXTST2 00635 49-1 $08 #49~1 $16 
ODTFLG = seeeee 91-32 127-4153 
ONEFIL = 000001 #2-4 -8 4-445 5-446 5-485 9-594 10-595 10-608 88-3107 
89-3108 9-3121 99-3515 100-3516 100-3527 122-4011 123-4012 123-4026 
OTL = 000010 G #11-676 S6-eone 
OVRFLO 3 013534 72-27 4~-2781 
OVRN = 000012 G #11-677 =2417 
OSAPTS = 000000 es 5-507 
O$AU = =—s_- =_—«000001 #5-464 #5-497 5-507 
OSBGNR = 000001 #5-464 #5-497 5-507 
OSBGNS = aig #5~464 #5-497 5-507 
osoU = 1 #5464 #5-497 5-507 
OSERRT = 000000 #5-464 5-507 
OSGNSW = 000001 #5~-464 #5-497 5-5 
OSPOIN = 000001 #5-464 #5-497 #5-497 #5-497 #5-497 #5-497 #5-497 5-497 5-507 
OSSETU = aia #5-464 #5-497 5-507 127-4142 
PARTL = 34 G #11 70-2656 
PATTEN = 000072 G a os 74-2768 86-304 #91-3307 106-3630 1 96-363) #107-3665 107-3666 *109-3705 
#109-3708 109-3709 *11 a {4 6 *111-3739 #1133767 =*113-3770 §= 113-3771 *115-3798 §=*115-3801 
POTFLG 016750 G #91-3276 =. 91-3303 =. #91-3558 
PERDEV 006364 #49~-1814 49-183 
—- . bong 04 ‘ A 6-9 3 *50-1903 58-2109 58-2168 58-2170  *66-2384 86-3034 88-3083 
PPSOT9 Goseee #9-5 ; 117-3915 
PRBUF O08 14 #9-57; 88-308 
PRDAT 015132 *88-3085 oa 3088 #88-3099 
F 15134 33-28 #88-3100 
I = 002000 G #10-6 
PRIOO = G #10-65 82-2926 
PRIO1 = 000040 G #10-65 
PRIO2 = 000100 G #10-65 


CZTUUDO 
SYMBOL C 


PTR 
RCBCNT 
RCBF SZ 
RCDB 
RCFLG 
RCINIT 
RCSR 


RSGCDP 
RSINIT 
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CZTUUDO 
MACRO CROSS mere 
MACRO NAME 
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MACRO CROSS REFERENCE 
MACRO NAME REFER 


MSPUT 


MSPUT1 


MSSVC 


MACRO ON 25-FEB-82 AT 07:08 
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CREF 


#113-3759 
#1 sp 


3448 
#117-3925 
#117-3929 


9 #123-4070 


#125-4111 


988-3091 


#117-3821 


468-2517 
968-2536 


#93-3389 
#117-3918 
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#89-3164 


&74- 763 
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SEQ 0153 
#117+3821 


3448 
#1173925 


#68-2512 
2520 


#9 
#117-3918 
#117-3927 


#123-4072 
#125-4115 


#10-646 
#89-3156 
#99-3490 
#107-3657 
#117-3821 
#58-2191 
#682522 
2-2720 
#74- 
#82-2929 


L 12 
ZTUUDO CREATED BY MACRO ON 25-FEB-82 AT 07:08 car 27 


C 
porine CROSS Mer eee heures SEQ 0154 
789 1 9- 196 #89-3167 89-3167 #89-3168 9-3168  #89-3169 89-3169  #89-3184 84 
#89-31 93185 #89-3195 89-3195 #89- one 9-3208 &#9i- 36 31-385 91-3262 9 a9i- $o3 
9i- $6 1-3269 §89i- $ os $85 #91-3¢3 1-3283 #9 1- ‘ 91-3320 #91-3350 = 91-3350 
one 87 93-3569  #93- 8 a 3 #93- $81 33-8 81 493-3389 93-3389 #75-3838 93-339 
#95- +4 95- #95-34 95-3450 &#97- 28, 97-3448 #97-3468 97-34 #99-351 351 
#102- 4 102- 94 Ate HA 18 =3587 #104-35 104-3594 At eat yd 104-3614 #106-3624 106-362 
#1 106- #107-3659 107-3659 #107-3691 Hoes 34 #109-3699 109-3699 AL ae 109-3723 
#111-3730 9111-3730 #1113754 «= 111-3754 4113-3761 «=: 113-3761 4113-3785 = 113-3785 4115-3 § 115-3792 
#115-3816 = 115-3816 = #117- age 117 xt} #117-3918 = 117-3918 9117-3925 = 117-3925 -#117-392 117-3927 
#117-3929 117-3929 4117-3938 =: 117-3938 
MSTLAB #47-1749 =#49-18 at et #49-1839 #52-1960 #58-2191  #62-2284 aeoneole #68-2517 #68-2520 
#68-2522 #68-25 oe? 43 as- 551 #72-2700 #72-2714 «= #7 ~$550 M72-2727 «= #72=2738 = #722742 
872-2746 «874-2766 «= 874-2769 «= 874-2772 «= #742776 = #B2-2911 = #B2-2926 §=— #B2-2927 §=— #822929 = 
2-2969 #84-3001 #84- aug #86-5051 #86-3052  #88- #88-3091 #88-3093 #89-3164  #89-3166 
989-3167 #89-3168  #89-316 184 #89-3185 #89-319 oe 8800 #91-3242 9691-3262 «=: #9'1-3263 
491-3269 891-3282 «= #91-3283 = #91-3320 §=—- #91-3350 =: #935- 3369 3-3 35-3381 #93-3389 #93-3392 
#95~34 97-3448 #97-3468 513_ #102-3580 #102-3587 3594 #104-3614 #106-3624 


#95~ #99~ #104- 
#106-3649 #107-3659 #107-3691 At sat 3344 #1003059 #1113730 4111-3754 =#113-3761 = #113-3785 9=#115-3792 
#115-3816 #117-3828 4117-3918 4117-3925 #117-3927 


11 

MSTSTL 47-1749 = 47-1749 «= #49-1836 §=—- #49-1836 = 49-1836 = #49 #49-1839 49-1839 #52-1960 
- #58-2191 58-2191 #62-22 62-2284  #68-251 68-251 468-2517 68-2517  #68-2520 
68-2520 =2522 68-2522 68-2536 68-2536 oes$98 68-2545 #68-2551 68-2551 #72-2700 
#72-2700 2700 #72-2714 #722714 72-271 #72-2720 2-2720 }§«=— 72-2720 #7e-2727 = #722727 

72-2727 «6472-2738 §=— #722738 - #72=2742 = #722742 72-2742 38672-2746 = 72-2746 #74~ 
74-27 474-2769 = 74-2769 = #742772 74-2772 «= 74-2776 = 74-2776 = 482-2911 82-2911  #82-2926 
82-2926 #82-2927 82-2927 #82-2929 82-2929  #82-2 82-2967 #82-2969 82-2969  #84-3001 

84- - - #86-3051 #86-3051 86-3051 #86-35052 86-3052  #88-3086 = 
88- 88-3091 #88-309 88-3093 164 89-3164 #89-3166 89-3166 #89-3167 89-3167 
#89-3168 9- #89-3169 89-3169  #89-3184 89-3184 #89-3185 89-3185 #89-3195 89-3195 


5=3409 8 3 #99-351 
#102-3580 102-3580 #102-3587 102-3587 #104-3594 104-3594 #104-3614 104-3614 #106-3624 106-3624 
#106-3649 106-3649 #1073659 107-3659 #107-3691 107-3691 4109-3699 109-3699 #109-3723 109-3725 
#111-3730 = 111-3730 #111-3754 «= 111-3754 #113-3761 = 113-3761 4113-3785 }=—- 113-3785 = #115-3792 §=—- 115-379 
#1153816 9115-3816 = #117-3828 }=117-3828 =#117-3918 = 1 
#117-3929 §=—:117-3929 -#117-3938 117-3938 


MSWORD #5-507 o2-30r #7-535 #7-535 #7-535 #7-535 #7-535 #7-535 #7-535 #7-535 
#7-535 #7-535 - #49~1836 9=1836 #49-1836 #49-1836 #72-2700 #72- #72- 
#72-2700 = #72-2714 «=: #72-2714 «= #72-2714 «= #72-2714 += 72-2720 «= 72-2720) §=— #722720) §=— H72-2720 = #722727 
#72-2727 ore-er et #72- 44 472-2738 }«=#72-2738 )3=— #722738 = #7227 #7e- os #72-2742 = #722742 
#72-2742  #86-30 #86-3051 #86-5051 86-3051 #9i- $ 1- g = $6 I be #91- 
~3282 1-3282. 491-3282. #102-3580 9 #104-3594 Ate 624 #107-3659 #109-3699 #111- Att a 761 
115-3792 117-3828 #123-4068 4125-4068 =4069 #123-4069 #123-4070 #123-4070 4123-4071 #123-4071 
#123-4072 123-4072 9 #125-4109 4125-4109 4125-4110 4125-4110 125-4111 Atte hp #125-4112 9 #125-4112 
sae or he 4125-4113 4125-6114 125-4114 125-4115 125-4115 4127-4146 9 #127-4146 
POP #23-1083 43-1708 43-1709 35-196! 52-1969 58-2157 60-5ee4 60-2222 68-2563 68-2564 
72-2747 = 72-2748 ag te # 72-2750 74-2774 74-2775 78-2840 78-2841 3 878 80-2879 
86-3056 =305 88-5094 88-3095 89-3202 89-3205 89-5204 9-3205 89-5206 


86-3057 86 : 
89-3207 97-3446 97-344 


CZTUUDO 
MACRO CROSS REFERENCE 
MACRO NAME me reneuces 
PRINTB 68-2536  #74-2766 
INTF 58-2191 88-3086 
PRINTS #89-31 #89-3168 
PRINTX 68-251 “2 
SH #23-107 o3-400) 
2-2684 -2685 
86-3030 ag: 031 
89-316 ~3442 
READEF #91-324 
RFLAGS #91-332 
SETPRI BS"S59 
SETVEC 2-292 82-2929 
C #5-463 5=464 
SWAPIN #23-11 #49~1786 
#23-1121 30-1886 
TSTID #35-1525 102-3579 
TUREAD #31-1407 #106-3632 
TURTRY #29-133 106-3631 
TUSEEK raat es 104-3600 
TUSELF 35-1484 #102-3582 


TUWRIT #25-1162 1 
XFER #102-3580 #104-3594 
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75-2687 
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106-3623 
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#107-3666 


109-3709 
#107-3659 
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CREF 


#86-3052 

93-3389 97-3448 117-3918 
pie! 

98-638 8-2551 

-1959 8-2143 60-2210 

74-2760 74-2761 eo $948 
88-3080 89-3157 89-315 
#49-1825 

107-3658 109-3698 111-3729 


4107-3667 #109-3709 #111-3740 


113-3771 
#109-3699 #111-3730 #113-3761 


117-3925 


78-2817 


78-2812 
89-3159 


113-3760 
#113-3771 


#1153792 


SEQ 0155 
117=3929 


68-2489 
80-2897 
89-3161 


